Supportnet / Forum / Tabellenkalkulation
Schleife über eine ganze Spalte
Frage
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 1 von Hajo_Zi
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
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