Zeilen ein und ausblenden unter Blattschutz
24.05.2018 10:16:22
Leif
ich habe von euch bereits eine tolle Hilfe zu meinem Thema bekommen. Jetzt möchte ich das folgende Makro unter einem Blattschutz verwenden, sodass trotz des Blattschutzes Zeilen ein und ausgeblendet werden können. Geht das?
Sub EinundAus()
Dim i As Integer
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Tabelle1" Or ws.Name = "Tabelle2" Then
With ws
For i = 5 To 250
If .Cells(i, 5).Value "hat Wert" Then
.Rows(i).EntireRow.Hidden = True
Else
.Rows(i).EntireRow.Hidden = False
End If
Next i
End With
End If
Next ws
End Sub
Anzeige