UserForm_Initialize()
30.08.2019 18:32:04
Frank
ich habe eine Userform (UserForm1) mit einer Listbox (Lst_Artikel).
Die Listbox wird automatisch über eine UserForm_Initialize() gefüllt.
Nun habe ich eine weitere UserForm (Userform2) die mit einer Listbox
(Listbox2) automatisch gefüllt werden soll.
Wenn ich den zweiten Befehl im Formular implementiere funktioniert
das automatische füllen der Listbox (Listbox2) nicht.
Was mache ich falsch ?
' Das erste Makro ist im Formular (UserForm1) implmentiert
Private Sub UserForm_Initialize()
Dim IngZeileMax As Long
Dim wksBlatt As Worksheet
Set wksBlatt = Worksheets("tbl_Artikel")
IngZeileMax = wksBlatt.UsedRange.Rows.Count
With Me.Lst_Artikel
.ColumnCount = 4
.ColumnHeads = True
.ColumnWidths = "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
' Das zweite Makro muss wo implementiert werden ?
Private Sub UserForm_Initialize()
Dim IngZeileMax As Long
Dim wksBlatt As Worksheet
Set wksBlatt = Worksheets("tbl_Anfrage")
IngZeileMax = wksBlatt.UsedRange.Rows.Count
With Me.ListBox2
.ColumnCount = 4
.ColumnHeads = True
.ColumnWidths = "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
Danke und Gruß
Frank
Anzeige