Wert von Combox an Label übergeben (VBA)

wmonja, Dienstag, 09.04.2019, 18:56 (vor 69 Tagen)

Hallo,
habe mir eine Auswahl von Monatsnamen und Wochentage in eine Combobox erstellt und würde jetzt gerne als Tex fogendes im Lebel stehen haben, wenn Es Januar ist dann soll im Label stehen "Der Januar ist Winter" und wenn es August ist soll " Der August ist Sommer" drin stehen. Wer kann mir da weiter helfen, damit mein Label1. caption aus ausgibt.
Private Sub UserForm_Initialize()
Dim i As Integer

For i = 1 To 12
Me.cmb_Monate.AddItem MonthName(i)
Next i
Me.cmb_Monate.ListIndex = Month(Date) - 1

For i = 1 To 7
Me.cmb_Wochentage.AddItem WeekdayName(i)
Next i
Me.cmb_Wochentage.ListIndex = Weekday(Date) - 1


frm_Anzeige.Caption = "Sie haben den Sonntag gew?hlt"
End Sub
Private Sub cmb_Monate_Change()
Label1.Caption = "Der Monat ... ist ..."
End Sub

Schöne Grüße


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum