Danke Chris für deine Ansätze die Probleme sind gelöst und es ist auch alles soweit fertig nur mit dem ausblenden klappt noch nicht so ganz.

Über ein Textfeld will ich ein Suchkriterium eingeben und in jeder Spalte wo diese Wort drin auftaucht soll es ausgeblendet werden so das ich nachher ne Übersicht habe wieviel z.b Meier ich in dre Tabelle stehen hab.

Mein Ansatz war

While Not Tabelle1.Cells(i, 1) = ""
For j = 1 To j = 25 Step 1
If Tabelle1.Cells("" & i & ":" & j & "") = Auswertung.Text Then
Tabelle1.Rows(i).Hidden = True
End if
next j
i = i + 1
Wend


Schönen Gruß Burton