Zeile mit leerer Zelle löschen
20.09.2004 17:09:27
Fabienne
Ich hab ne simple Frage:
Wie bringe ich es hin eine Zeile nicht nur zu löschen, wenn in der ersten Zelle (Bsp: A16) nichts drin steht, sondern auch wenn in der Zelle A (Bsp: A16) was drin steht, aber die Zelle B (B16) leer ist?
Wenn in A16 nichts drin steht:
Sub Leerzeilen_loeschen()
'Löschen von leeren Zellen 1"
Dim j As Double
Application.ScreenUpdating = False
For j = (i - 1) * 140 + 120 To 2 Step -1
If Cells(j, 1).Value = "" Then _
Cells(j, 1).EntireRow.Delete
Next j
Application.ScreenUpdating = True
Wenn in A16 was drin steht, aber in B16 nichts?