Userform mit Listbox
29.08.2019 20:56:45
Frank
ich benötige mal eure Hilfe.
Ich habe eine Userform (Userform1) mit einer Listbox namens "Lst_Artikel".
Nun möchte ich gern über ein CommandButton die "Userform1" mit der
gefüllten Listbox "Lst_Artikel" aufrufen.
Der verwendete Datenbereich A2:D5 kommt aus der Tabelle "tbl_Artikel".
Irgendwie will es nicht funktionieren.
Die Userform1 mit der Listbox "Lst_Artikel" wird aufgerufen, aber OHNE Ihnhalt !
Was mache ich falsch?
Meine Codes lauten:
' Folgendes steht im Modul-1
Sub CommandButton()
UserForm1.Show
End Sub ' Folgendes steht im Modul-2
Private Sub UserForm1_Initialize()
Dim IngZeileMax As Long
Dim wksBlatt As Worksheet
Set wksBlatt = tbl_Artikel
IngZeileMax = wksBlatt.UsedRange.Rows.Count
With Me.Lst_Artikel
.ColumCount = 4
.ColumHeads = True
.ColumWidths = "50;120;100;40"
.RowSource = _
"=" & wksBlatt.Name & "!A2:D" & _
IngZeileMax
.MultiSelect = fmMultiSelectMulti
.BackColor = RGB(165, 165, 165)
.Font.Size = 12
.Font.Bold = True
.ListIndex = 0
End With
End Sub
Frank
Anzeige