Zeilen löschen wenn Wert in SpalteA
26.03.2006 09:39:34
DieterG.
mit diesem Makro werden in SpalteA ab Zeile6 alle Zeilen mit einem Wert gelöscht.
Sobald aber in mehren Spalten z.B. C10, D15 Werte eingetragen sind, werden die Zeilen 10 und 15 nicht mehr gelöscht.
Wer kann das Makro so verändern, daß alle Zeilen gelöscht werden, wenn Daten in SpalteA ab Zeile6 eingegeben wurden, auch wenn in einer Nachbarspalte Daten eingetragen sind?
Danke im Voraus und einen schönen Sonntag
Gruß Dieter
Sub ZeilenLoeschen()
Dim z As Integer
Application.ScreenUpdating = False
For z = Cells(65536, 1).End(xlUp).Row To 6 Step -1
If Application.WorksheetFunction.CountA(Rows(z)) = 1 Then
Rows(z).EntireRow.Delete shift:=xlUp
End If
Next z
Application.ScreenUpdating = True
End Sub