folgenden Code zum Suchen in alle offenen Mappen habe ich im Archiv gefunden.
Sub Finden()
Dim rng As Range
Dim vNumber As Variant
Dim iCounter As Integer
Dim sFirst As String
Dim bln As Boolean
Dim WBDatei As Workbook
vNumber = InputBox( _
prompt:="Bitte Begriff eingeben:", _
Default:="Such Such")
If vNumber "" Then
For Each WBDatei In Workbooks
With WBDatei
For iCounter = 1 To .Worksheets.Count
Set rng = .Worksheets(iCounter).Cells.Find(vNumber)
If rng Is Nothing = False Then
sFirst = rng.Address
Do
Set rng = .Worksheets(iCounter).Cells.FindNext(rng)
MsgBox "Gefunden in Datei " & WBDatei.Name & " Blatt " & rng. _
Parent.Name _
& " - Zelle " & rng.Address(False, False)
Loop While Not rng Is Nothing And rng.Address sFirst
bln = True
End If
Next iCounter
End With
Next WBDatei
If bln = False Then
Beep
MsgBox prompt:="Begriff nicht gefunden!"
End
End If
End If
End Sub
Jetzt möchte ich nicht die Fundstelle in der Messagebox angezeigt bekommen, sondern die Zelle mit dem gesuchten Wert soll ausgewählt werden. Wie muß das Makro geändert werden?Gruß Thomas