Ich habe erneut ein Problem mit dem Laufzeitfehler 424 - Objekt erforderlich. Ich habe zum Ziel, ein Listenfeld zu erstellen und über eine Suchleiste zu befüllen. Wenn ich das Makro starte öffnet er mir ohne Probleme die UserForm, wenn ich einen Wert in die Suchleiste eingebe, zeigt er mir den Laufzeitfehler 424 an. Beim Debuggen markiert er mir folgende Zeilen:
Private Sub cmdSuchen_Click()
Dim IngZeile As Long
Dim IngZeileMax As Long
Dim i As Integer
Me.ListBox1.Clear
With tbl_Kunden
IngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row (diese Zeile markiert er mir)
For IngZeile = 3 To IngZeileMax
If InStr(.Cells(IngZeile, 1).Value, Me.TextBox1.Value) > 0 Then
Me.ListBox1.AddItem .Cells(IngZeile, 1).Value
Me.ListBox1.Column(1, i) = .Cells(IngZeile, 2).Value
Me.ListBox1.Column(2, i) = .Cells(IngZeile, 3).Value
Me.ListBox1.Column(3, i) = .Cells(IngZeile, 4).Value
Me.ListBox1.Column(4, i) = .Cells(IngZeile, 5).Value
Me.ListBox1.Column(5, i) = IngZeile
i = i + 1
End If
Next IngZeile
End With
End Sub
Ich wäre euch sehr dankbar, wenn ihr mir bei dem Problem weiterhelfen könntet. Verzeiht bitte außerdem etwaige Fehler innerhalb meiner Beschreibung, da ich noch ein blutiger Anfänger bin.Viele Grüße Max