Ich benötige eure Hilfe!
Folgender Teil eines Makros löscht Zeilen, in dem es leere Zellen sucht und die gefundenen dazugehörigen Zeilen löscht. Leider bleiben ein paar leere Zellen stehen.
Mit diesem Code:
h = Cells(Rows.Count, 2).End(xlUp).Row
For s = h To 2 Step -1
If Cells(s, 11) = "" Then Rows(s & ":" & s).Delete Shift:=xlUp
Next
In Spalte 2 wird geschaut, wie viele Werte untereinander, in der Spalte stehen. (es wird damit festgestellt wie viele Zeilen untereinander stehen) Dann wird in Spalte 11 nach leeren Zellen geschaut und die jeweiligen dazugehörigen Zeilen gelöscht.
Mein Problem ist nun das ein paar leere Zellen stehen bleiben und das sind immer Zellen in denen irgendwann mal eine Zahl Stand. Wenn ich nun die leeren Zellen mit rechte Maustaste Inhalte löschen bearbeite. Werden nach einem neuen Makrodurchlauf die leeren Zellen gefunden und die Zeilen gelöscht.
Könnt ihr mir den Code soweit ändern, das auch die Zellen erkannt und gelöscht werden, in denen irgendwann mal eine Zahl stand?
Vielen Dank für eure Hilfe!
Tschüß
Rolf