Wert von Combox an Label übergeben (VBA)

wmonja, Dienstag, 09.04.2019, 18:56 (vor 106 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

Wert von Combox an Label übergeben

wmonja, Dienstag, 09.04.2019, 19:43 (vor 106 Tagen) @ wmonja

Hat sich erledigt. Habe die Lösung

RSS-Feed dieser Diskussion
powered by my little forum