Hallo Forum Team
ich habe ein Formular mit 25 Textboxen darunter auch Conbobxen und einer ListBox.
Nun möchte ich gerne aus einer Listbox einen Datensatz markieren, dieser sollte alle Textboxen befüllen, und der aktuelle Datensatz soll in der Tabelle markiert werden.
meine Listbox
Private Sub Userform_Initialize()
Dim lZeile As Long
Dim wksBlatt As Worksheet
Set wksBlatt = tbl_Tabelle
lZeile = wksBlatt.UsedRange.Rows.Count
With Me.ListBox1
.ColumnCount = 25
.ColumnWidths = "0;100;150;170;60;100;200;200;70;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50"
.ColumnHeads = True
.RowSource = "=" & wksBlatt.Name & "!A2:Y" & lZeile
.BackColor = RGB(165, 165, 165)
.Font.Size = 12
.Font.Bold = True
.ListIndex = 0
End With
Danke im Voraus