Option
Explicit
Private
Sub
cmb_Monate_Change()
With
cmb_Monate
Select
Case
.ListIndex
Case
2
To
4
lbl_Monat_gewaehlt.Caption =
"Der Monat "
& .Value &
" ist im Frühling!"
BackColor = RGB(159, 251, 147)
Case
5
To
7
lbl_Monat_gewaehlt.Caption =
"Der Monat "
& .Value &
" ist im Sommer!"
BackColor = RGB(243, 245, 94)
Case
8
To
10
lbl_Monat_gewaehlt.Caption =
"Der Monat "
& .Value &
" ist im Herbst!"
BackColor = RGB(248, 167, 100)
Case
Else
lbl_Monat_gewaehlt.Caption =
"Der Monat "
& .Value &
" ist im Winter!"
BackColor = RGB(171, 245, 251)
End
Select
End
With
End
Sub