Text in worksheet suchen
04.10.2007 20:59:05
Erich
ich bin schon verzweifelt und würde mich über Hilfe freuen....
Folgendes Problem: Wie kann ich nicht nur in Reihe "C" nach dem Text (Saft) suchen sondern im ganzen Blatt? Irgendwie mit einem Offset für rows?
Die anderen Zeilen in denen das Wort "Saft" nicht vorkommt sollen dann ausgeblendet werden.
Sub cmdfilter_Click()
On Error Resume Next
Dim i, f As Integer
Sheets("Tabelle1").Activate
ActiveSheet.Unprotect = "Passwort"
Application.ScreenUpdating = False
Range("A1:Z200").Select
For i = Selection.Cells(Selection.Cells.Count).Row _
To Selection.Cells(1).Row Step -1
If Cells(i, "C").Value "Saft" Then Rows(i).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
End Sub
Grüße
der Erich