Hallo kann mir jemand mit dieser Schleife weiterhelfen? Bin mir leider nicht ganz sicher was der Sinn ist.
Soweit ich es verstanden habe bezieht es sich auf die 2. Spalte und "Zeile" zählt die Zeilen und schreibt wenn diese leer sind 1 hinein.
Wenn 1 gefunden wird wird die zeile gelöscht.
For Zeile = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If Cells(Zeile, 2) = "" Then x = 1
If x = 1 Then
ActiveSheet.Rows(Zeile & ":" & Zeile).Delete
x = 0
End If
Next
|