Ich habe folgendes Problem:
Ich habe eine Liste mit einträgen in 3 Spalten.
Name | Pfad | Text
aus dieser will ich alle Zeilen löschen die in Spalte C(Text) leer sind.
Ich gehe die Tabelle mit einer For-Schleife durch. In etwa so:
For lCount1 = 1 To Worksheets("Alarme").UsedRange.Rows.Count
sRangeString = "C" & lCount1
If Range(sRangeString).Value = "" Then 'Wenn in Spalte C nichts steht -> Löschen
Rows(lCount1 & ":" & lCount1).Select
Selection.Delete Shift:=xlUp
lCount1 = lCount1 - 1 'Count-1 weil Zeilen nach oben geschoben _
werden
Next
Das Problem dabei ist, dass sich das Programm am Ende totläuft. Wenn keine Einträge mehr da sind ist Spalte C leer, die Zeile wird gelöscht und das Programm prüft die nächste Zeile, die auch leer ist und so weiter...Ich hatte mir überlegt das Programm mit einer while Schleife zu gestalten und es laufen zu lassen bis die nächsten 10 Zeilen leer sind. Jedoch weiß ich nicht wie ich Abfragen kann ob die Zeilen leer sind.
While bZeilenleeer = 0
If > then
bZeilenleer = 1
End If
Was das Programm machen soll...
Wend
Ich hoffe ich konnte mein Problem ausdrücken und würde mich über Hilfe freuen :)