Hallo, habe mir ine Excel eine UserForm estellt. Dabei soll eine ListBox (ListBox1) Werte (Text) von den Zellen B3:B18 anzeigen, wenn Betrieb 1 (CheckBox1) ausgewählt ist.
Anbei ist mein aktuelles Markro, das aber nicht funktioniert. Sprich wenn ich Betrieb 1 auswähle, erscheint kein Text in der ListBox.
Private Sub UserForm_Initialize()
''Schlag UserForm1 Betrieb 1
'Befüllung von TextBox1 mit Felder von Betrieb 1
If UserForm1.CheckBox1.Value = True Then
Worksheets("EingabeSchlag").Activate
UserForm1.ListBox1.RowSource = "B3:B18"
End If
'Styl ändern - Auswahlkästchen
ListBox1.ListStyle = fmListStyleOption
'Mehrere auswählen
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
Wenn mir jemand Helfen könnte wäre ich sehr Dankbar.
Mfg
Simon
|