Sub ZeilenAusblenden()
Dim raBereich As Range, ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Funktionsverzeichnis" Then
With ws
For i = 1 To 100
If .Cells(i, "A") = Worksheets("Funktionsverzeichnis").Cells(i, "B") And UCase(Worksheets("Funktionsverzeichnis").Cells(i, "F")) = "X" Then
If raBereich Is Nothing Then
Set raBereich = Worksheets("Funktionsverzeichnis").Cells(i, "A")
Else
Set raBereich = Union(raBereich, Worksheets("Funktionsverzeichnis").Cells(i, "A"))
End If
End If
Next i
If Not raBereich Is Nothing Then
raBereich.EntireRow.Hidden = True
End If
Set raBereich = Nothing
End With
End If
Next ws
Set raBereich = Nothing
End Sub