wer kann mir Hilfe anbieten?
Ich möchte, dass beim Aktivieren eines Tabellenblattes alle Zeilen ausgeblendet werden, in denen in der Spalte H die Zahl 1 eingetragen ist.
Für eure Hilfen schon jetzt vielen Dank.
Gruß
Fritz
Private Sub Worksheet_Activate()
Dim cell
For Each cell In Range("H:H")
If cell = 1 Then cell.EntireRow.Hidden = True
Next
End Sub
Private Sub Worksheet_Activate()
Dim cell As Range
Dim hRow As Long
Application.ScreenUpdating = False
Sheets("Tabelle1").Activate
hRow = Range("H65536").End(xlUp).Row
For Each cell In Range("H1:H" & hRow)
If cell = 1 Then cell.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub