Suche wenn gefunden dann ausblenden ??
21.08.2003 14:17:09
Burton
Ü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