Datum mit Wochentag in Listbox
06.09.2003 13:58:28
Matthias C.
mit meiner Listbox kann ich das ausgewählte Datum in eine Zelle eintragen.
Die Systemvariable Date gibt mir das Format "dd.mm.yyyy" zurück, welches auch so in der Zelle stehen soll.
Zur besseren Auswahlübersicht möchte ich nun auch den Wochentag voranstellen (Samstag 06.09.2003), wobei das o.g. Format in der Zelle beibehalten werden soll.
Meine Versuche, den Wochentag voranzustellen scheitern jedoch immer.
Mit der VBA-Hilfe und der Recherche komme ich in diesem Fall nicht so recht weiter und knobel schon seit einigen Tagen daran rum.
Wie kann ich die Systemvariable Weekday und das Format richtig in den Code einbinden?
Bin für jeden Tip sehr Dankbar.
Private Sub cmdEintragen_Click()
Cells(3, 1) = lstAuswahl.Value
End Sub
Private Sub UserForm_Initialize()
Dim a As Integer
Dim b As Integer
Dim Datum As Date
Datum = Date
For a = 1 To 10
lstAuswahl.AddItem Datum + b
b = a
Next a
End Sub
MfG Matthias
Anzeige