Option Explicit
Private Sub ComboBox1_Change()
Sheets("Kalender").Cells(2, 4) = ComboBox1.Text
Sheets("Kalender").Cells(37, 4) = ComboBox1.Text
Modul1.kalender
End Sub
Private Sub ComboBox2_Change()
Sheets("Kalender").Cells(3, 1) = ComboBox2.Text
Sheets("Kalender").Cells(38, 1) = ComboBox2.Text
Modul1.schichten
End Sub
Private Sub CommandButton1_Click()
Unload Schichtkalender
End Sub
Private Sub UserForm_Activate()
Dim iJahr As Integer
Dim iSchicht As Integer
For iJahr = 2000 To 2030
With ComboBox1
.AddItem iJahr
End With
Next iJahr
For iSchicht = 1 To 4
With ComboBox2
.AddItem "Schicht " & iSchicht
End With
Next iSchicht
End Sub
|