Erstmal besten Dank für die tolle Arbeit die hier geleistet wird, ich konnte schon oft davon profitieren.
Ich habe auf dieser tollen Seite den Beitrag mit der Nummer 87799 "Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen" gefunden, habe aber ein Problem damit.
Beim Ausführen der "Prozedur" kommt jedes Mal eine Fehlermeldung:
Run-time error '-2147352571 (8000200005)'
Type mismatch
Als Anfänger kann ich mit dieser Fehlermeldung leider nichts anfangen. Mein Code sieht folgendermassen aus:
Private Sub CommandButton2_Click()
Dim rngFind As Range
Dim rngFirst As Range
ListBox1.Clear
Set rngFind = Sheets("Inventaire").Cells.Find( _
what:=TextBox2.Text, _
lookat:=xlPart, _
LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
Do
ListBox1.AddItem rngFind
Set rngFind = Sheets("Inventaire").Cells.FindNext(rngFind)
Loop While Not rngFind Is Nothing And _
rngFind.Address rngFirst.Address
End Sub
Der Fehler tritt bei der fett markierten Zeile auf (ListBox1.AddItem rngFind).
Kann mir jemand einen Typ geben was hier falsch ist?
Besten Dank und Gruss
Stephan