Lasse mir in eine Combobox den aktuellen Monat anzeigen . Habe mir folgenden Code zusammengestrickt .
Meine Frage kann ich das Datum auch z.B. Freitag , 9 Dezember 2011 anzeigen lassen
Private Sub ComboBox1_Change()
Dim bis As Byte
Dim lngRow As Date
With ActiveSheet
bis = DateSerial(Year(Date), Month(Date) + 1, 0) - DateSerial(Year(Date), Month(Date), 0)
For lngRow = 1 To bis
ComboBox1.AddItem DateSerial(Year(Date), Month(Date), lngRow)
Next
End With
End Sub
Guss Ralf