habe folgendes Problem und zwar hab ich ne Suchfunktion gecodet, wenn ich nen bestimmtes Wort suche das er mir das im Tabellenblatt findet und in die Zelle hinspringt. Dabei will ich aber haben das diese Zelle dann blinkt um sie besser zu sehn, und wenn ich eine andere Zelle anklicke im Tabellenblatt das blicken wieder verschwindet.
Sub SuchFunktion()
Dim wks As Worksheet
Dim rng As Range
Dim strAddress As String, strFind As String
strFind = InputBox("Gib deinen gewünschten Suchbegriff ein:", Application.UserName, strSuch)
If strFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find(strFind, lookat:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
strAddress = rng.Address
Do
Application.Goto rng, False
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set rng = Cells.FindNext(After:=ActiveCell)
If rng.Address = strAddress Then Exit Do
Loop
End If
Next wks
strSuch = strFind
MsgBox "Leider nicht gefunden!", False, Application.UserName
Worksheets(1).Activate
Range("A1").Select
End Sub
So sieht mein code aus
Kann mir da jemand helfen, wie ich das einfügen kann?
Besten dank im voraus