Sub ausblenden()
Dim raFund As Range
With ThisWorkbook.Worksheets("Daten Quali-Matrix")
Worksheets("Qualifikation-Suche").Rows("12:100").Hidden = False
Set raFund = .Columns("E").Find(what:="Mustername 1", LookIn:=xlValues, lookat:=xlWhole)
Worksheets("Qualifikation-Suche").Rows("12:15").Hidden = Not raFund Is Nothing
Set raFund = .Columns("E").Find(what:="Mustername 2", LookIn:=xlValues, lookat:=xlWhole)
Worksheets("Qualifikation-Suche").Rows("17:20").Hidden = Not raFund Is Nothing
Set raFund = .Columns("E").Find(what:="Mustername 3", LookIn:=xlValues, lookat:=xlWhole)
Worksheets("Qualifikation-Suche").Rows("22:25").Hidden = Not raFund Is Nothing
End With
Set raFund = Nothing
End Sub