Startseite

Das UserForm

Die Steuerung des Kalenders wird über dieses UserForm vorgenommen. Die Gestaltung ist dabei dem Anwender überlassen, es müssen nur die Objekte ComboBox1, ComboBox2 und CommandButton1 vorhanden sein.
Diese Makros werden im Modul des UserForms, das den Namen Schichtplan haben muss, abgelegt:
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

Code eingefügt mit: Excel Code Jeanie