makro erweitern
13.01.2005 21:14:19
mehmet
hier habe ich ein sehr hilfreiches makro finden können
es sucht nach einem text innerhalb aller tabellen
Public strSuch As String
Sub Suchen_alle_Tab()
Dim wks As Worksheet
Dim rng As Range
Dim strAddress As String, strFind As String
strFind = InputBox("Bitte Suchbegriff eingeben:", 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 "Keine weiteren Fundstellen!", False, Application.UserName
Worksheets(1).Activate
Range("A1").Select
End Sub
wie kann man diesen makro so erweitern, so dass die fundstelle gelb
markiert wird, wenn es gefunden wird.
wenn man auf nein oder weiter klickt, so soll die gelbe zelle wieder hergestellt werden.
herzlichen dank für die hilfe
gruss
mehmet