Hallo zusammen,
ich habe ein Makro mit dem ich über mehrere Tabellenblätter suchen kann. Mein Problem ist das mir eine Hervorhebung des Suchergbenisses nicht gelingen will. Es wäre cool wenn die gefundene Zelle Farblich hervorgehoben wäre, aber nur für Kurze zeit.
Kann mir jemand weiterhelfen?
Hier das Makro mit dem ich Suche:
Sub Suche()
Dim strSUCH As String, ws As Integer, rng As Range, strNeu As String
Start:
Do
strSUCH = InputBox("Wonach wird gesucht?" & Chr(13) & "Artikelnummer, ID-Nummer,Bezeichnung oder Lagerplatz")
If strSUCH = "" Or Len(strSUCH) = 0 Then Exit Sub
Loop While Len(strSUCH) < 3
ws = 1
Do While ws <= Worksheets.Count
Sheets(ws).Select
Set rng = Cells.Find(What:=strSUCH, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
If rng Is Nothing And ws = Worksheets.Count Then
strNeu = MsgBox("Keine Begriff gefunden!" & Chr(13) & "Möchten sie erneut suchen?", vbYesNo)
If strNeu = vbNo Then
Exit Sub
Else
GoTo Start
End If
ElseIf rng Is Nothing And ws < Worksheets.Count Then
ws = ws + 1
Else
rng.Select
Exit Sub
End If
Loop
End Sub
Vielen Dank schon mal