ich benötige eure Hilfe.
Ich möchte dass in einer Tabelle alle Zeilen zwischen Zeile 34 und einschließlich Zeile 80 nur dann eingeblendet werden, wenn in diesen Zeilen in der Spalte H keine 1 eingetragen ist.
Danke für jede Unterstützung.
Gruß
Fritz
Private Sub Worksheet_Activate()
Dim i As Byte
For i = 34 To 80
If Range("H" & i).Value = 1 Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next
End Sub