Kleines VBA Problem bzgl. Datumsformat
#1
Hallo,
vielleicht hat hier ja jemand eine schnelle Hilfe...
Folgendes Problem:
Ich möchte auf verschiedenen Blättern in die Kopfzeile ein Datum schreiben.
Eigentlich eine leichte Aufgabe. Allerdings möchte ich dort nur den Monat mit Jahreszahl haben und das im englischen Format (also z.B. "October 2017").

Die Kopfzeile richte ich ja mit 
ActiveSheet.PageSetup.RightHeader = "&""Lucida Sans Unicode,Standard""" & KopfDatum
ein.

KopfDatum ist dabei eine Variable mit folgendem Inhalt (ReportDate kommt aus einer Input-Box und ist logischerweise ein Datumswert)
KopfDatum = Format(ReportDate, "[$-409]MMMM YYYY;@")

[$-409] steht ja eigentlich für das englische Datumsformat... Leider wirft mir Excel immer "Oktober 2017" aus.

Jemand eine Idee  Huh

Viele Grüße
Peter
Top
#2
...und doch noch eine Lösung gefunden :43:

Habe es so gelöst:
KopfJahr = Year(ReportDate)
KopfMonat = Choose(Month(ReportDate), "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
ActiveSheet.PageSetup.RightHeader = "&""Lucida Sans Unicode,Standard""" & Chr(10) & KopfMonat & " " & KopfJahr

Ob es eine "smartere" Lösung gibt... KA

Gruß
Peter
Top
#3
Hallo,

eine andere Möglichkleit wäre:

KopfDatum = Application.Text(ReportDate, "[$-409]MMMM YYYY;@")
Gruß
Michael
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste