|
Ahh, vielen Dank Gast47486, das hat mir weitergeholfen :)
Habe nun ein weiteres Problem. Ich soll laut Aufgabe die Monate und Wochentage nicht per Hand in den Quellcode schreiben, finde aber keinen Weg.
Je nach gewählten Monat soll in einem Label ausgegeben werden "Der Monat Juli ist im August!" und die Hintergrundfarbe des UserForms soll sich je nach Jahreszeit ändern. Wie kann ich umgehen, die Monatsnamen von Hand in den Code zu schreiben? Habe jetzt das hier, was funktioniert aber die Aufgabe ist ja nicht wirklich erfüllt.
Private Sub cmb_Monate_Change()
Select Case Me.cmb_Monate
Case "Dezember", "Januar", "Februar"
lbl_Monat_gewaehlt.Caption = "Der Monat " & cmb_Monate.Value & " ist im Winter!"
UserForm1.BackColor = RGB(171, 245, 251)
Case "März", "April", "Mai"
lbl_Monat_gewaehlt.Caption = "Der Monat " & cmb_Monate.Value & " ist im Frühling!"
UserForm1.BackColor = RGB(159, 251, 147)
Case "Juni", "Juli", "August"
lbl_Monat_gewaehlt.Caption = "Der Monat " & cmb_Monate.Value & " ist im Sommer!"
UserForm1.BackColor = RGB(243, 245, 94)
Case "September", "Oktober", "November"
lbl_Monat_gewaehlt.Caption = "Der Monat " & cmb_Monate.Value & " ist im Herbst!"
UserForm1.BackColor = RGB(248, 167, 100)
End Select
End Sub
LG, Jessica
|