Hallo Community,
habe im Netz ein Makro gefunden, welches ich benutze um ein umfangreiches Tabellenblatt nach Einträgen zu durchsuchen:
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)
habe im Netz ein Makro gefunden, welches ich benutze um eine
umfangreiche Arbeitsmappe nach Einträgen zu durchsuchen:
Ich würde mir wünschen, dass der Suchbegriff in dem Makro bei
einem „Treffer“ nicht gelöscht wird, sodern dass sich das
Makro ggf. schließt und bei erneutem Anklicken den zuletzt
eingegebenen Suchbegriff enthält
ein Ansatz, bei .Find fand ich nichts um den Suchbegriff
vorzugeben. Das geht m.W. nur bei einigen „Dialogs“.
http://www.file-upload.net/download-7633570/Userform…
Schaus dir mal an. Der eigentliche Suchcode fehlt noch.
Gruß
Reinhard