ListIndex in ListBox aufrufen
05.09.2019 11:26:37
Andreas
Ich habe eine UserForm (UF_Verbraucher) mit einer Listbox, die mit Werten aus einer Tabelle gefüllt wird. Diese sind in 7 Spalten verteilt. Ich möchte einen Datensatz per Doppelklick in Textboxen anzeigen lassen und danach in eine andere Tabelle übertragen. Es scheint, als ob ich den Aufruf der Zeile in der Listbox falsch mache, jedenfalls gibt es einen Fehler oder die falsche Zeile wird ausgewählt. Ich tippe, dass ich den Zeilenindex falsch mache. Aber das ist nur die Meinung eines Laien, sicher hat jemand eine genauere Idee.
Sub lsb_VerbraucherListe_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim LB1 As Object
Dim tbx As TextBox
Dim c As Integer
Set LB1 = lsb_VerbraucherListe
With lsb_VerbraucherListe
tb_Bezeichnung = LB1.List(LB1.ListIndex, 0)
tb_VerbraucherName = LB1.List(LB1.BoundColumn, 1)
tb_VerbraucherTyp = LB1.List(LB1.BoundColumn, 2)
tb_VerbraucherKategorie = LB1.List(LB1.BoundColumn, 3)
tb_VerbraucherL1 = LB1.List(LB1.BoundColumn, 4)
tb_VerbraucherL2 = LB1.List(LB1.BoundColumn, 5)
tb_VerbraucherL3 = LB1.List(LB1.BoundColumn, 6)
Me.tb_VerbraucherZ1.SetFocus
End With
For c = 1 To 3
With Me.Controls("tb_VerbraucherL" & c)
.Locked = True
.BackColor = &H8000000F
End With
Next c
Me.tb_VerbraucherL2.Locked = True
Me.tb_VerbraucherL3.Locked = True
End Sub