ich habe auf einer Userform eine Listbox und eine Textbox. Ich will wenn ich in die Textbox ein Wort eingebe, dass er mir die Listbox durchsucht. Gibt es eine Möglichkeit dazu?
Danke
Private Sub TextBox1_Change()
Dim rngZelle As Range
Dim lngIndex As Long
Set rngZelle = Range(ListBox1.RowSource).Find(TextBox1.Value, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
lngIndex = rngZelle.Row - Range(ListBox1.RowSource).Cells(1).Row
ListBox1.Selected(lngIndex) = True
End If
Set rngZelle = Nothing
End Sub
Private Sub TextBox1_Change()
Dim rngZelle As Range
Dim strStart As String
' Suchspalte anpassen
Set rngZelle = Columns(2).Find(TextBox1.Value, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
strStart = rngZelle.Address
ListBox1.Clear
Do
' 1. Spalte der ListBox füllen (Spalte 0)
ListBox1.AddItem rngZelle.Value
' 2. Spalte der ListBox füllen (Spalte 1)
ListBox1.List(ListBox1.ListCount - 1, 1) = rngZelle.Offset(0, 1)
'... usw., maximal 10 Spalten möglich (also bis einschließlich , 9)
Set rngZelle = Columns(2).FindNext(rngZelle)
Loop While rngZelle.Address strStart
End If
Set rngZelle = Nothing
End Sub
Private Sub CommandButton3_Click()
'Variable deklarieren
Dim erste_freie_Zeile As Integer
'Zwischengespeicherte Datensatz-ZeilenZahl
'in Variable "erste_freie_Zeile" schreiben
If TextBox2.Tag = "" Then Exit Sub
erste_freie_Zeile = CLng(TextBox2.Tag)
'Spalte A, erste freie Zeile das Datum im Datumsformat übertragen
Activesheets.Cells(erste_freie_Zeile, 2) = VBA.Format(ComboBox2.Text)
TextBox2.Tag = ""
MsgBox "Die Daten wurden aktuallisiert", vbInformation
Unload Me
End Sub
was ist daran falsch?