Excel 2010 - Fußzeile per Makro erstellen

10/05/2010 - 17:51 von Daniel | Report spam
Hallo Leute,

ich habe versucht über eine Makroaufzeichnung die Erstellung der Fußzeile
per Makro zu automatisieren, aber es klappt irgendwie nur zu 50%. Nachdem
ich festgestellt habe, dass schon mal viel zu viele Parameter mit
aufgezeichnet werden, habe ich alles gelöscht, bis auf das, was bleiben
sollen "müsste". Ziel war, das links das Datum in Schriftgröße 8 Arial
steht, in der Mitte Firma-Abteilung/Name - Dateipfad und rechts Seite x von
xx. Nach Ausführen des Makros packt er alles in die Mitte und in gemixter
Reihenfolge. Irgendwie vermisse ich auch die Paramter Arial 8 oder soll das
die 8 in den Parametern sein.

Sub Fußzeile()
Application.PrintCommunication = False

With ActiveSheet.PageSetup
.LeftFooter = "&8&D"
.CenterFooter = "&8Firma-Abteilung/Name -- &Z&F"
.RightFooter = "&8Seite &P von &N"

End With
Application.PrintCommunication = True
End Sub

Vielen Dank schon mal für eure Hilfe
Gruß Daniel
 

Lesen sie die antworten

#1 Hajo_Zi
11/05/2010 - 07:15 | Warnen spam
Hallo Daniel,

ich habe den Code gestet und er verteilt was auf die 3 Felder &8 ist die
Schriftgrößw, Arial ist wohl Standard.
Option Explicit

Sub Fußzeile()
With ActiveSheet.PageSetup
.LeftFooter = "&8&D"
.CenterFooter = "&8Firma-Abteilung/Name -- &Z&F"
.RightFooter = "&8Seite &P von &N"
End With
End Sub

Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Wndows 7 und Excel Version 2010 Retail
http://Hajo-Excel.de/




"Daniel" wrote:

Hallo Leute,

ich habe versucht über eine Makroaufzeichnung die Erstellung der Fußzeile
per Makro zu automatisieren, aber es klappt irgendwie nur zu 50%. Nachdem
ich festgestellt habe, dass schon mal viel zu viele Parameter mit
aufgezeichnet werden, habe ich alles gelöscht, bis auf das, was bleiben
sollen "müsste". Ziel war, das links das Datum in Schriftgröße 8 Arial
steht, in der Mitte Firma-Abteilung/Name - Dateipfad und rechts Seite x von
xx. Nach Ausführen des Makros packt er alles in die Mitte und in gemixter
Reihenfolge. Irgendwie vermisse ich auch die Paramter Arial 8 oder soll das
die 8 in den Parametern sein.

Sub Fußzeile()
Application.PrintCommunication = False

With ActiveSheet.PageSetup
.LeftFooter = "&8&D"
.CenterFooter = "&8Firma-Abteilung/Name -- &Z&F"
.RightFooter = "&8Seite &P von &N"

End With
Application.PrintCommunication = True
End Sub

Vielen Dank schon mal für eure Hilfe
Gruß Daniel

.

Ähnliche fragen