Gruppe
Druck
Problem
Wie kann ich das aktuelle Datum im Format TTTT, TT. MMMM JJJJ in die Fußzeile eingeben?
StandardModule: basMain
Sub LangesDatum()
Dim sDate As String
sDate = Format(Date, "dddd, dd. mmmm yyyy")
ActiveSheet.PageSetup.LeftFooter = sDate
End Sub