Listbox mit den nächsten sieben Tagen
01.09.2003 18:55:35
Matthias C.
kann mir jemand eine Hilfestellung für den unten stehenden Code geben?
In einer Listbox möchte ich das aktuelle Datum und die nächsten 6 Tage anzeigen lassen. Leider klappen meine Laienhaften "Umbauversuche" nicht.
Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 7
lstAuswahl.AddItem Format( _
DateSerial(1, iCounter, 1), "dd.mm.yy")
Next iCounter
End Sub
Danke für eure Hilfe.
MfG Matthias