Hallo habe hier im Forum folgendes Makro gefunden
Sub suchen()
Dim strSuch As String, ws As Integer, rng As Range, strNeu As String
Start:
Do
strSuch = InputBox("Wonach wird gesucht?" & Chr(13) & "Mindestens 3 Buchstaben angeben!")
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
Das Makro funktioniert nur bis zum ersten Treffer.
Kann mir jemand da weiter helfen
Ich Tabellenblätter die über eine Makrosuchfunktion komplett nach einem einzugebenden Suchbegriff durchsuchen möchte. Hier soll der erste Treffer angezeigt werden, anschließend die Suche jedoch fortgesetzt werden, falls der Treffer oder die zugehörigen Informationen nicht gänzlich zutreffend sind und das solange bis der Treffer ausreichend ist oder letztendlich die Mappe komplett durchsucht wurde.
Gruß Lutz