Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Kopf- und Fußzeile mit VBA erstellen / formatieren
#1
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
WIN 10 64-Bit Pro / EXCEL Microsoft Office 365 ProPlus 64-Bit
Antworten Top
#2
Hi Olli,

füge die rot markierte Anweisung ein.

Zitat: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
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#3
Hallo Günter,

ist da nicht ein Anführungszeichen zuviel?
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#4
Hi Stefan, hi Olli,


Zitat:ist da nicht ein Anführungszeichen zuviel?


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


Zitat: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
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#5
Hi Günter

hast Du eine Ahnung wie die Farbkodierung &M02-009 zustande kommt? Eigentlich funktioniert hier auch &KDFDBC6 was den RGB Werten entspricht.
Grüße,
Winny
Antworten Top
#6
Hi Winny,

die habe ich erhalten, als ich mir selber nochmals das Befüllen der Kopfzeile (mit Farbformatierung des Textes) aufgezeichnet habe.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#7
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
WIN 10 64-Bit Pro / EXCEL Microsoft Office 365 ProPlus 64-Bit
Antworten Top


Gehe zu:


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