Kategorien

Artikel-Schlagworte: „Kopfzeile“

Kopfzeile mit Text aus Tabelle füllen

Problemstellung:
Allgemein: In die Kopfzeile sind via VBA Texte oder Zahlen zu erfassen, die innerhalb der Tabelle in bestimmten Zellen erfasst werden.

1. Die Kopfzeile des aktuellen Tabellenblattes wird mit dem Wert aus der Zelle "A1" des aktuellen Tabellenblattes gefüllt
Sub KopfzeilefuellenL()
ActiveSheet.PageSetup.LeftHeader = Format(ActiveSheet.Range("A1").Value)
End Sub


2. Der Zellinhalt der Tabelle "TestA", Zelle "A1" ist in der rechten Kopfzeile der aktuellen Tabelle auszuweisen.
Sub KopfzeilefuellenR()
ActiveSheet.PageSetup.RightHeader = Format(Sheets("TestA").Range("A1").Value)
End Sub


Die einzelnen Bereiche der Seite können via VBA wie folgt angesprochen werden:

  • LeftHeader         = Kopfzeilenbereich links

  • CenterHeader   = Kopfzeilenbereich mitte

  • RightHeader      = Kopfzeilenbereich rechts

  • LeftFooter          = Fußzeile links

  • CenterFooter    = Fußzeile mitte

  • RightFooter       = Fußzeile rechts