Zeilen ausblenden mit VBA
20.07.2004 11:29:31
Michael
in puncto VBA bin ich ein Nichts. Könnt ihr mir helfen, warum er die Zeilen in der Beschriebenen Range nicht ausblendet:
Private Sub Worksheet_Activate()
Dim Zelle
Application.ScreenUpdating = False
For Each Zelle In Range("H12:H2616")
If IsNull(Zelle.Value) Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next
End Sub
Vielen Dank schon mal.
Gruß
Michael