ich habe ein Problem in meiner Userform mit der Suchfunktion.
Aktuell habe ich eine ListBox1 die mir in 14 Spalten die Daten meiner Tabelle anzeigt. Diese Einträge kann ich auch bearbeiten und löschen.
Und jetzt möchte ich eine Kategorie(die Überschrift der Spalte) in einer ComboBox auswählen und dann in einer TextBox in dieser Spalte nach suchen lassen.
Ich bin bereits soweit, dass ich mir die Überschriften der Tabelle in einer DropDown Box auswählen kann und dann soll im Textfeld die Eingabe zur Suche stattfinden. Nach einem tutorial auf Youtube habe ich folgenden Code für die Suchfunktion in der Textbox:
Mein Problem: wenn ich den code laufen lasse, dann wird mir angezeigt, dass die variable a nicht definiert ist. Aber im tutorial wird nicht näher darauf eingegangen und ich weiß nicht wie ich das hier zum laufen bekomme
Private Sub TBSuchen_Change()
On Error Resume Next
If Me.TBSuchen.Text = "" Then
Me.ListBox1.Clear
Exit Sub
End If
Me.ListBox1.Clear
Dim r, last_row As Integer
last_row = shUebersicht.Range("A10000").End(xlUp).Row
For r = 2 To last_row
a = Len(Me.TBSuchen.Text)
If UCase(Left(shUebersicht.Cells(r, kriterium).Value, a)) = UCase(Me.TBSuchen.Text) Then
With Me.ListBox1
.AddItem shUebersicht.Cells(r, "A").Value
.List(.ListCount - 1, 1) = shUebersicht.Cells(r, "B").Value
.List(.ListCount - 1, 2) = shUebersicht.Cells(r, "C").Value
.List(.ListCount - 1, 3) = shUebersicht.Cells(r, "D").Value
.List(.ListCount - 1, 4) = shUebersicht.Cells(r, "E").Value
.List(.ListCount - 1, 5) = shUebersicht.Cells(r, "F").Value
.List(.ListCount - 1, 6) = shUebersicht.Cells(r, "G").Value
.List(.ListCount - 1, 7) = shUebersicht.Cells(r, "H").Value
.List(.ListCount - 1, 8) = shUebersicht.Cells(r, "I").Value
.List(.ListCount - 1, 9) = shUebersicht.Cells(r, "J").Value
.List(.ListCount - 1, 10) = shUebersicht.Cells(r, "K").Value
.List(.ListCount - 1, 11) = shUebersicht.Cells(r, "L").Value
.List(.ListCount - 1, 12) = shUebersicht.Cells(r, "M").Value
.List(.ListCount - 1, 13) = shUebersicht.Cells(r, "N").Value
End With
End If
Next r
End Sub