Hallo Werner,
ich habe es gelöst dank deiner Hilfe Werner
Sub ZeilenAusblenden()
Dim raBereich As Range, ws As Worksheet, z As Integer
Dim i As Integer
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
ws.Activate
For z = 1 To 100
For i = 1 To 100
If ws.Cells(i, "A") = Worksheets("Funktionsverzeichnis").Cells(z, "B") And Worksheets("Funktionsverzeichnis").Cells(z, "E") = "x" Then
Rows(i).Hidden = True = True
End If
Next i
Next z
Next ws
Application.ScreenUpdating = True
End Sub