online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon mäthesacker vom 13.08.2019, 14:37 Options

Schleife über eine ganze Spalte

Wie kann ich eine schleife für eine ganze spalte schreiben?

Dim lng As Integer
For lng = 7 To 17 Step 1
Range("B lng").Activate
If Mid(Range("B lng").Value, 11, 4) = "S811" Then Range("E lng") = Mid(Range("B lng").Value, 11, 7)
Next lng

funktioniert da überraschenderweise ;) nicht. wie kann ich es schreiben, dass er automatisch eine zeile weiter nach unten springt?

danke Mattes


Antwort schreiben

Antwort 1 von Hajo_Zi vom 13.08.2019, 14:41 Options

Hallo Mattes,
Option Explicit

Sub Mattes()
Dim lng As Long
Dim LoLetzte As Long
' letzte belegte Zeile unabhängig von Excelversion für Spalte B(2)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
For lng = 7 To LoLetzte
If Mid(Cells(lng, 2).Value, 11, 4) = "S811" Then Cells(lng, 5) = Mid(Range("B" & lng).Value, 11, 7)
Next lng
End Sub

Gruß Hajo

Ähnliche Themen

schleife beenden
sebal  13.11.2007 - 101 Hits - 5 Antworten

schleife beim installieren von winxp
reese  18.11.2007 - 72 Hits - 8 Antworten

Excel:Die ganze Spalte mit einem"Button" nach Datum sotieren
Keke  06.02.2008 - 50 Hits - 2 Antworten

Berechnung nur wenn Datum in Zelle
spalte  10.02.2008 - 92 Hits - 5 Antworten

Sort
Ala  18.03.2008 - 18 Hits - 3 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026