Du musst die Aktion auch irgendwie starten ;-)
Private Sub CheckBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
CheckBox1.Value = Not CheckBox1.Value
End Sub
Private Sub CheckBox1_Change()
Einlesen1
End Sub
Private Sub Einlesen1()
'Befüllung von TextBox1 mit Felder von Betrieb 1
If UserForm1.CheckBox1.Value = True Then
Worksheets("EingabeSchlag").Activate
With ListBox1
' Quelle angeben
.RowSource = "B3:B18"
' Style ändern - Auswahlkästchen
.ListStyle = fmListStyleOption
' Mehrfachauswahl einstellen
.MultiSelect = fmMultiSelectMulti
End With
Else
Me.ListBox1.RowSource = ""
End If
End Sub
|