Gesuchte Buchstaben einfärben bzw Markieren
25.01.2005 09:38:52
Michael
Ich habe mir eine Suchfunktion zusammengebastelt. Ich will es irgendwie schaffen, daß in den gefundenen Zeilen die Buchstaben mit denen ich gesucht habe färbig angezeigt werden. Ein Beispiel: Ich suche "Plan" In den Gefundenen Zellen soll dann alle "plan" färbig markiert werden (aber nicht die ganze Zeile) angeigt werden
Private Sub Suche()
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, [A3:H3]) Is Nothing Then Exit Sub
Dim s$
s = Target.Value
If Not s = "" And Not (Left(s, 1) = "*" And Right(s, 1) = "*") Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = "*" & s & "*"
Application.EnableEvents = True
scroll
On Error GoTo 0
End If
If Target.Address = "$A$3" Or Target.Address = "$B$3" Or Target.Address = "$C$3" Or Target.Address = "$D$3" Or Target.Address = "$E$3" Or Target.Address = "$H$3" Then
If Range("A3").Value = "" And Range("B3").Value = "" And Range("C3").Value = "" And Range("D3").Value = "" And Range("E3").Value = "" And Range("H3").Value = "" Then
Rows("5:8").Select
Selection.EntireRow.Hidden = True
scroll
If Worksheets("Dienst").FilterMode = True Then
ActiveSheet.ShowAllData
End If
Else
Range("A11:U3576").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A2:h3"), Unique:=False
Exit Sub
ErrorHandler:
Application.EnableEvents = True
End If
End If
End Sub
Danke für Eure Hilfe
michael