Suchfunktion
20.11.2013 14:15:16
UweK
ich habe hier bei der Recherche ein Makro gefunden um über eine Inputbox eine bestimmte Zahl in der Arbeitsmappe zu suchen. Funktioniert auch hervoragend.
Problem ist, das in manchen Zellen mehrere drei/vierstellige Zahlen durch Komma getrennt stehen. Diese werden dann leider nicht gefunden.
Bsp.:
123, 652, 3186
Nun soll die 652 gefunden werden. Wie muß das Makro modifiziert werden um das zu erreichen?
Sub suchen()
Dim wks As Worksheet
Dim rng As Range
Dim strAddress As String, strFind As String
strFind = InputBox("Bitte Teile- oder FA-Nummer eingeben:", "Gesamte Arbeitsmappe _
durchsuchen...", "123")
If strFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find(strFind, after:=ActiveCell, lookat:=xlWhole, LookIn:=xlFormulas)
If Not rng Is Nothing Then
strAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox("Weiter suchen?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = strAddress Then Exit Do
Loop
End If
Next wks
End Sub
Bin für jeden Hinweis dankbar.Grüße Uwe