Hi, mache einen Programmier Kurs, bin noch ziemlich am Anfang und habe nun folgende Aufgabe:
Unter anderem eine ComboBox mit den Wochentagen füllen, ohne jeden Wochentag selbst zu schreiben und in der Titelleiste des Formulars soll je nach Auswahl der Text "Sie haben den (Wochentag) gewählt!".
Wie ich das für jeden einzelnen Tag und mit Case machen würde, weiß ich aber so komme ich nicht weiter bzw. bin ich gerade so weit:
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 12
Me.cmb_Monate.AddItem MonthName(i)
Next i
For i = 1 To 7
Me.cmb_Tage.AddItem WeekdayName(i)
UserForm1.Caption = "Sie haben den " & ??? & " gewählt!"
Next
Me.cmb_Monate.ListIndex = Month(Date) - 1
Me.cmb_Tage.ListIndex = Weekday(Date, vbUseSystemDayOfWeek) - 1
End Sub
Finde dazu leider nichts in meinen Heften und bin schon echt lange an der Aufgabe. Stehe total auf dem Schlauch.
LG, Jessica
|