Suchwort in Zelleninhalt suchen und auflisten
05.09.2017 15:20:29
Öli
auf eine Registerkarte (Archiv) stehen in der Spalte D viele Nachrichten. Ich möchte gern mit einem Suchfeld nach einem eingegebenen Begriff suchen und diese dann in einem weiteren Tabellenblatt ausgeben. Also Suchen, Zeile kopieren und nacheinander in ein anderes Tabellenblatt einfügen.
Ich habe dazu mal etwas gebastelt, die Abfrage funktioniert auch gut, aber danach wird das Ergebnis nicht angezeigt. Kann mir jemand helfen?
Sub zelleninhalt_durchsuchen_auflisten()
Dim Loletzte As Long
Dim RngZ As Range
Dim str_SuchString As String
str_SuchString = InputBox("Geben Sie ein Wort nachdem Sie suchen möchten ein:", "Suche...")
For Each RngZ In Worksheets("Archiv").Range("D1:D20")
Loletzte = Worksheets("Auswahl").Cells(Rows.Count, 1).End(xlUp).Row + 1
If RngZ Like str_SuchString Then Worksheets("Auswahl").Cells(Loletzte, 1) = RngZ
Next
End Sub
Öli