Hallo VBA-Freunde,
ich bin neu bei VBA und habe für meine aktuelle Tätigkeit einen Code geschrieben, der leere Zeilen löschen soll:
Sub deletion_of_empty_rows()
Dim i As Integer
For i = 1 To 500
If Cells(i, 2).Value = vbNullString Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub
Leider gibt es aber einen Bug. Der löscht immer nur die Hälfte der leeren Zeilen, sodass ich diesen meherfach laufen lassen muss, um den gewünschten Effekt zu erzielen. Meiner Meinung nach sollte der Code eigentlich alle leeren Zeilen löschen. Könnt ihr mir helfen herauszufinden, wo der Fehler liegt?
Vielen Dank im Voraus
LG
Vitali
|