Kopfzeilenformat
thomas3
in einem Ordner sind viele Dateien gespeichert. Diese Dateien muß ich alle aufmachen, Kopf- und Fußzeile löschen, neue Kopf- und Fußzeile vergeben und unter neuen Namen an einem anderen Ort abspeichern
Fast alles kein Problem.
Kopf- und Fußzeile haben nun das "Problem", dass es unterschiedliche Formate gibt. Also unterschiedliche Schriftypen, -größen und z.B. Fett oder nicht. Unten stehend meine Zeile, wie ich die einzelnen Zeilen auslese und dann in den entsprechenden Kopf- / Fußzellenbereich beame.
Die Frage ist nun, wie kann ich die Formate mitübernehmen ?
Liebe Grüße
Thomas
'linker Bereich
'in den Zeilen 12 bis 17 steht der entsprechende Text
'Text auslesen
For r = 12 To 17
inhkl = inhkl & Cells(r, 3) & Chr(13)
Next r
und
With ActiveSheet.PageSetup
.LeftHeader = inhkl
End With