Datum
Ralf
Habe ein Problem gebe über VBA den aktuellen Monat ein . Jetzt würde ich gerne über eine andere Combobox den Monat ändern . Combobox1 zeigt nun nicht mehr den aktuellen Monat sondern als Beispiel April
Private Sub ComboBox1Füllen()
Dim bis As Byte
Dim lngRow As Date
With ActiveSheet
bis = DateSerial(Year(Date), Month(Date) + 1, 0) - DateSerial(Year(Date), Month(Date), 0) _
Datum in
For lngRow = 1 To bis
ComboBox1.AddItem Format(DateSerial(Year(Date), Month(Date), lngRow), "dddd, d.mm.yyyy")
Next
ComboBox1.Text = Format(Date, "dddd, d.mm.yyyy")
End With
End Sub
Gruss Ralf
Anzeige