Textfelder mit 1 Spalte aus Listbox füll
11.01.2021 00:19:48
Andre
ich brauch ein wenig Hilfe:
In einer 3-spaltigen Listbox werden mir Daten angezeigt.
Beim Klick auf eine Zeile in der Listbox sollen mehrere Textfelder aus einem Tabellenblatt gefüllt werden.
Bedingung hierbei ist die erste Spalte der Listbox, in der eine einmalige Personalnummer steht.
Im Tabellenblatt steht die Personalnummer ebenfalls in der ersten Spalte.
In meinem Code werden werden die Textboxen aber entsprechend der Zeile des Tabellenblatts gefüllt und nicht aus der Zeile, in der die gleiche Personalnummer steht.
Kann mit jemand meinen Code verbessern?
Danke
Andre
Private Sub Listbox1_Click()
Dim wks As Worksheet
Dim Zeile As Long
Dim iItem As Integer
Set wks = Worksheets("MA")
With Me.ListBox1
iItem = .ListIndex
If iItem = -1 Then Exit Sub
Zeile = .List(iItem, 0)
Me.TextBox_PNR = wks.Cells(Zeile, 1).Value
Me.ComboBox_Anrede = wks.Cells(Zeile, 2).Value
Me.TextBox_Name = wks.Cells(Zeile, 3).Value
Me.TextBox_Gebname = wks.Cells(Zeile, 4).Value
Me.TextBox_Vorname = wks.Cells(Zeile, 5).Value
Me.ComboBox_Geschlecht = wks.Cells(Zeile, 31).Value
Me.TextBox_Strasse = wks.Cells(Zeile, 6).Value
Me.TextBox_PLZ = wks.Cells(Zeile, 7).Value
Me.TextBox_Ort = wks.Cells(Zeile, 8).Value
Me.ComboBox_National = wks.Cells(Zeile, 15).Value
Me.TextBox_Tel = wks.Cells(Zeile, 9).Value
Me.TextBox_Mobil = wks.Cells(Zeile, 10).Value
Me.TextBox_Mail = wks.Cells(Zeile, 11).Value
Me.TextBox_Gebdatum = wks.Cells(Zeile, 12).Value
Me.TextBox_Gebort = wks.Cells(Zeile, 13).Value
Me.TextBox_Gebland = wks.Cells(Zeile, 14).Value
Me.TextBox_Ausweisbis = wks.Cells(Zeile, 42).Value
End With
End Sub