Beschäftige Dich mal damit, welche Datentypen Eigenschaften erwarten und welche Datentypen Methoden/Funktionen liefern.
.ListIndex erwartet eine Zahl, aber MonthName() oder WeekdayName() liefern jeweils einen String.
Ausserdem :
Die erste Schleife soll die Monate 1 bis 12 über die AddItem-Methode hinzufügen.
Die erste Anweisung innerhalb Deiner Schleife soll den ersten Monatsnamen eines Jahres hinzufügen, aber die zweite Anweisung soll bereits den aktuellen Monatsnamen auswählen.
Abgesehen davon, dass die Funktion Month() anstelle MonthName() anzuwenden ist, stimmt also
a) der Datentyp nicht
b) Wenn erst Januar hinzugefügt wurde (1.Durchlauf), wie soll dann März angezeigt werden können?
MonthName-Funktion (Visual Basic für Anwendungen) | Microsoft Docs
ListIndex-Eigenschaft | Microsoft Docs
Month-Funktion (Visual Basic für Anwendungen) | Microsoft Docs
WeekdayName-Funktion (Visual Basic für Anwendungen) | Microsoft Docs
Dim i As Integer
For i = 1 To 12
cmb_Monat.AddItem MonthName(i)
Next
For i = 1 To 7
cmb_Tag.AddItem WeekdayName(i)
Next
cmb_Monat.ListIndex = Month(Now)
cmb_Tag.ListIndex = Weekday(Now)
|