Anstatt IsError Null
03.03.2004 18:35:41
Michael Engelhardt
wie muss ich den Code ändern, wenn ich die Zeilen unterdrücken möchte die im genannten Bereich den Zellwert NULL haben, anstatt wie jetzt einen Fehlerwert erzeugen.
Private Sub Worksheet_Activate()
Dim Zelle
Application.ScreenUpdating = False
For Each Zelle In Range("A13:A550")
If IsError(Zelle.Value) Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next
Range("A:A, D:L, N:U").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Gruß
Michael
Anzeige