ListBox TextBox wert Finden und Anzeigen
04.06.2020 11:08:15
Michael
Ich habe eine Listbox mit zwei spalten wenn ich drauf klicke gibt es mir die Werte in meine zwei TextBoxen zurück.
In der TextBox30 gibt es mir ID an und TextBox31 Name und Vorname, dass Funktioniert auch super.
Es gibt mir auch denn entsprechenden Wert in TextBox32 an, aber leider nur beim ersten klick. Wenn ich eine andere ID aus der ListBox auswähle geht es nicht. Ich hoffe jemand kann mir dabei helfen? Danke für eure Hilfe.
Hier ist mein Code:
Dim rngFind As Range
Dim firstAddress As String
With Worksheets("Tabelle2")
Set rngFind = .Columns(1).Find(TextBox30, LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
firstAddress = rngFind.Address
TextBox32.Value = Sheets("Tabelle2").Cells(4, 9).Value
Set rngFind = .Columns(1).FindNext(rngFind)
End If
End With
Lg Michi
Anzeige