wenn zelle B1 usw. leer soll Reihe gelöscht werden
28.08.2004 23:13:57
Melanie
Ich steige gerade in die VBA-Programmierung ein und bitte um Eure Hilfe bei folgendem Problem:
Bei einer Liste soll die ganze Reihe gelöscht werden, wenn die Zelle in Spalte B leer ist. Dazu verwende ich folgenden Ansatz (habe ich im Excelarchiv gefunden):
Sub Zeilen_weg()
For Each ws In Worksheets
z = ws.Range("B65356").End(xlUp).Row
For i = z To 1 Step -1
If IsEmpty(ws.Cells(i, 1)) Then
ws.Rows(i).Delete
End If
Next i
Next ws
End Sub
Das Problem ist nur: das klappt prima, solange die Zelle in Spalte A leer ist, aber nicht, wenn dort ein Eintrag ist. Kann jemand einen Tipp geben, wie ich das verbessern kann?
Danke vorab! Gruß, Melanie