Suchen in spalten
01.11.2018 18:19:50
speedy
Habe hier bei meiner Suche nach Makros schon viel Wertvolles gefunden.
Nun möchte ich mich direkt,nach langer Suche nach einer Lösung, an euch wenden.
Mein Problem: Ich möchte in Spalten (A - H) nach Stichwörter bzw nach ganzen Zahlen suchen.
Den folgenden Makro habe ich hier gefunden und bin soweit zufrieden.
Sub Suchen()
Dim Suchbegriff$
On Error GoTo Fehler
Suchbegriff = InputBox("bitte Suchbegriff eingeben", , "")
If StrPtr(Suchbegriff) = 0 Then Exit Sub
Cells.Find(what:=Suchbegriff, After:=ActiveCell, LookIn:=xlFormulas, lookat:=xlPart).Activate
weiter:
Cells.FindNext(After:=ActiveCell).Activate
If MsgBox("Fund in " & ActiveCell.Address & vbLf & "weiter suchen?", vbYesNo, " Suche -> " & _
Suchbegriff) = vbYes Then GoTo weiter
Exit Sub
Fehler:
MsgBox "Suchbegriff wurde nicht gefunden"
End Sub
Nun bei der Stichwortsuche zu Beispiel "er" wird auch "weiter oder Fehler Als Fund ausgegeben. Ich möchte in diesem Fall nur ganze Wörter finden auch wenn
sich in der Zelle Wörter "er geht" befinden soll der Makro die Zelle als Treffer makieren. Bei Zahlen soll er mir jedoch nur ganze Zahlen in Zelle als Treffer ausgeben.
Ich danke schon im Voraus für eure Hilfe
und verbleibe
Mit freundlichen Grüßen an die Community