Kopf- und Fußzeile mit VBA erstellen / formatieren

[friedensbringer]

Hallo Leute,

ich hoffe ihr könnt mir wieder einmal weiterhelfen und zwar geht es mir um folgendes:

Ich musste heute bei sehr vielen Dateien aufgrund einer Telefonnummernänderung die Kopfzeile bearbeiten.
Manchmal in Dateien mit nur einem Register, manchmal in Dateien mit vielen Registern.

Da habe ich mir gedacht es müsste doch auch sicher via VBA möglich sein die Kopf- und Fußzeile zu erstellen / formatieren.

Ich hab also mal einen Code aufgezeichnet und geringfügig modifiziert in der "Persönlichen Makroarbeitsmappe" abgespeichert.

Code:

Sub Test()

   With ActiveSheet.PageSetup
       .LeftHeader = ""
       .CenterHeader = _
       "&""Arial,Standard""&8" & "Max Mustermann GmbH . Musterstraße 1 . 1234 Musterstadt . Hotline +43 9876 132456 . Fax DW 321 . info@mustermann.at . www.mustermann.at"
   .RightHeader = ""
   End With

End Sub

Ich würde nun gerne zusätzlich zur Schriftart (Arial) und Schriftgröße (8) auch noch die Farbe auf grau (R 135 G 135 B 135 / HEX #878787) ändern.
Kann mir jemand sagen wie ich das machen müsste?

https://msdn.microsoft.com/de-de/library/office/ff822794.aspx?f=255&MSPPError=-2147217396 
Außerdem würde ich gerne auswählen können ob das nur im aktiven Tabellenblatt oder für alle Blätter in einer Mappe passieren soll?
Danke für eure Hilfe und lg
Olli

[WillWissen]

Hi Olli,

füge die rot markierte Anweisung ein.

Sub Test()

   With ActiveSheet.PageSetup
       .LeftHeader = ""
       .CenterHeader = _
       "&""Arial,Standard""&8""&M02-009" & "Max Mustermann GmbH . Musterstraße 1 . 1234 Musterstadt . Hotline +43 9876 132456 . Fax DW 321 . info@mustermann.at . www.mustermann.at"
   .RightHeader = ""
   End With

End Sub

[Steffl]

Hallo Günter,

ist da nicht ein Anführungszeichen zuviel?

[WillWissen]

Hi Stefan, hi Olli,

ist da nicht ein Anführungszeichen zuviel?

das ist mir gar nicht aufgefallen. Aber so ist es eliminiert:

Option Explicit


Sub Test()

   With ActiveSheet.PageSetup
       .LeftHeader = ""
       .CenterHeader = _
       "&""Arial,Standard""&8&M02-009" & "Max Mustermann GmbH . Musterstraße 1 . 1234 Musterstadt . Hotline +43 9876 132456 . Fax DW 321 . info@mustermann.at . www.mustermann.at"
   .RightHeader = ""
   End With

End Sub

[Winny]

Hi Günter

hast Du eine Ahnung wie die Farbkodierung &M02-009 zustande kommt? Eigentlich funktioniert hier auch &KDFDBC6 was den RGB Werten entspricht.

[WillWissen]

Hi Winny,

die habe ich erhalten, als ich mir selber nochmals das Befüllen der Kopfzeile (mit Farbformatierung des Textes) aufgezeichnet habe.

[friedensbringer]

Hallo zusammen,

war leider ein paar Tage auf Urlaub und habe die Antwort erst jetzt gesehen.
Ich werde es heute einmal testen.

Vielen Dank schon einstweilen!

lg

Olli