Ausblenden von Zeilen
21.08.2003 23:10:21
Joerg
ich habe folgendes Makro, das mir eine Zeile löscht, falls der Wert in Spalte H leer ist.
Wie bekomme ich es hin, das die nächsten beiden Leerzeilen noch stehen bleiben und erst ab der 3. Leerzeile gelöscht wird??
Danke Joerg
'sub Test zeilen verschwinden wenn leer
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("H18:H65")
If c.Value = "" Or c.Value = "0" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = True