Zeilen verstecken
21.07.2003 17:05:02
Harald
ich möchte per VBA in einem Blatt alle Zeilen verstecken, die in der Spalte B eine 0 eingetragen haben:
Sub verstecken()
Dim c As Integer, r As Integer
Dim loletzte As Long
If Range("B65536") = "" Then loletzte = Range("B65536").End(xlUp).Row
c = 2
For r = 1 To loletzte Step 1
If Cells(r, c) = 0 Then
Rows("r").EntireRow.Hidden = True
End If
Next
End Sub
Bei der Zeile
Rows("r").EntireRow.Hidden = True
beschwert er sich mit: Anwendungs- oder objektdefinierter Fehler.
Könnt Ihr mir bitte helfen.
Danke schon mal im Voraus
Gruß
Harald
Anzeige