Suchen eines Textes mehrere Ergebnisse
26.09.2022 17:46:06
Richi
Wer kann mir bei der Lösung helfen?
Ich suche nach einem Text in einer Spalte. Diesen Code hab ich mit meinen beschränkten VBA Kenntnissen hingekriegt. Dummerweise kann der Text an mehreren Stellen in der Spalte vorkommen. Da steh ich an und benötige eure Hilfe.
Ziel wäre, dass ich über ein Userform oder Box, den Suchbegriff eingeben kann und danach von Zelle zu Zelle mit dem Suchbegriff geführt werde, bis ich den richtigen Eintrag habe.
Anschliessen soll mit einem Klick in Zelle das Suchprogramm abgebrochen werden.
Sub suchen()
Dim finden As Range
Set finden = Columns(3).Find(what:="*abc*")
Cells(finden.Row, finden.Column).Select
End Sub
Gruss Richi