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
2. Der Zellinhalt der Tabelle "TestA", Zelle "A1" ist in der rechten Kopfzeile der aktuellen Tabelle auszuweisen.
Die einzelnen Bereiche der Seite können via VBA wie folgt angesprochen werden:
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
Veröffentlicht in 
Schlagworte: