Clever-Excel-Forum

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 

Viele Grüße
Peter

...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

Hallo,

eine andere Möglichkleit wäre:

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