Ich habe via Recherche folgenden Code gefunden, von dem ich mir endlich das gewünschte Resultat erhoffe.
Sub FundstellenSuchen()
Dim iRow As Integer, iRowL As Integer
Dim sSearch As String
sSearch = InputBox(prompt:="Suchbegriff:")
If sSearch = "" Then Exit Sub
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If InStr(Cells(iRow, 1).vlaue, sSearch) Then
frmGefunden.lstFound.AddItem Cells(iRow, 1).Value
End If
Next iRow
frmGefunden.Show
End Sub
Jetzt habe ich folgendes Problem. Beim Ausführen wird ein Laufzeitfehler 438 produziert mit dem Zusatz "Objekt erfüllt diese Eigenschaft oder Methode nicht"...
Da ich noch ziemlicher Anfänger auf VBA bin, kann ich mit der Meldung nicht viel anfangen :-(
Kann mir jemand helfen? Ziel soll sein, dass eine Suche über mein Tabellenblatt "All" gestartet wird und die Such-Resultate (ganze Zeilen) aufgelistet werden...
Doris