Hallo Klaus,
solange das 'Suchen-Dialogfenster' geöffnet ist, bleibt dein Makro bei
Application.Dialogs(xlDialogFormulaFind).Show stehen. Erst wenn das
Fenster geschlossen wird, kann der restliche Code abgearbeitet werden.
Ich hab' mal was ähnliches programmiert, jedoch einen anderen Ansatz gewählt.
Der Suchbegriff wird über eine InputBox eingegeben und anschließend werden
alle Felder auf übereinstimmung geprüft:
Sub Suchen()
Dim Eingabe As String
Dim Feld As Range
Dim Gefunden As Boolean
Dim Antwort As Long
Eingabe = InputBox("Was denn suchen?", "Suchmaschine")
If Eingabe <> "" Then
For Each Feld In ActiveSheet.UsedRange
If InStr(UCase(CStr(Feld.Value)), UCase(Eingabe)) > 0 Then
Gefunden = True
Feld.Activate
Antwort = MsgBox("Weitersuchen?", vbQuestion + vbYesNo, "Frage")
If Antwort = vbNo Then
Exit For
End If
End If
Next Feld
If Gefunden = False Then
MsgBox "'" & Eingabe & "' nicht gefunden!", vbInformation, "Schade"
End If
End If
End Sub
Das Suchergebnis würde ich über das SelectionChange-Ereignis farbig markieren:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 6
End Sub
Vielleicht hilft's dir weiter?
Gruß
Sigi