For-Schleife funktioniert nicht richtig
31.03.2015 11:58:29
Larissa
Ich habe folgendes Problem:
Hier ein kleiner Code-Ausschnitt:
Sub Löschen()
For a = 1 To 100
If IsEmpty(Range("E" & a)) Then
Rows(a).Delete Shift:=xlUp
End If
Next a
End Sub
Wie die Methode schon richtig ausdrückt möchte ich ganze Zeilen löschen. Und zwar genau diejenigen, die in der Spalte E leer sind. Die Funktion funktioniert soweit nur, dass beim erstmaligen Starten nur ein Bruchteil der leeren Zellen gefunden und daraufhin die Zeilen gelöscht werden. Starte ich das Makro dreimal dann habe ich das gewünschte Ergebnis. Wo liegt hier der Fehler?