PDA

Vollständige Version anzeigen : Fußzeile in Pivot-Tabelle


Patri
20.04.2009, 11:57
Hallo!

Ich stehe mal wieder vor einem neuen Problem.
Kann ich in meiner Pivot-Tabelle eine Fußzeile mit dem aktuellen Datum einrichten?Per VBA Code!

jinx
20.04.2009, 12:46
Moin, Patri,

meines Wissens sind die Kopf-/Fusszeilen Bestandteil der Seiteneinrichtung, nicht von Pivottabellen. Zuweisung an den entsprechenden Header/Footer (Left, Center oder Right) für die Seitenansicht, ansonsten Auslesen der benötigten Zeilen auf der Tabelle und Einfügen unterhalb. Beispiel für Seiteneinrichtung (Makro-Aufzeichnung):

With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "&D"
'...
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With