Dieses Makro liest Inhalte aus einem Tabellenbereich, und schreibt sie in die Fußzeile des Tabellenblatts. Im Beispiel habe ich die rechte Seite der Fußzeile gewählt.
Hierdurch erhält man die Möglichkeit, in Kopf- und Fußzeilen Inhalte mit Bezug zur aktuellen Tabelle zu bekommen. Die Zeilen werden sozusagen dynamisch.
Die Tabelle (Ausschnitt) und das Ergebnis:
Das Makro zum Kopieren:
Sub fußzeile_füllen() ' Liest Inhalte aus den Zellen CA1 - CA5 und schreibt sie in die Fußzeile ' Klaus-Dieter Oppermann For r = 1 To 5 ' Beginn Schleife fuzei = fuzei & " " & Range("CA" & r) ' Zellinhalte in die Variable einlesen Next r ' Wendepunkt für Schleife With ActiveSheet.PageSetup ' Eingelesene Werte... .RightFooter = fuzei ' ...in die Fußzeile schreiben End With ' Ende schreiben End Sub ' Ende Makro |
Durch Austaussch des Befehls in der dritte Zeile von unten können auch andere Fußzeilenbereiche, oder auch die Kopfzeilenbereiche mit Inhalten gefüllt werden. Auch der gleichzeitige Eintrag mehrerer Inhalte in Kopf- und Fußzeile gleichzeitig ist möglich.
Befehl | Bereich | Position |
.LeftHeader | Kopfzeile | links |
.CenterHeader | Kopfzeile | mitte |
.RightHeader | Kopfzeile | rechts |
.LeftFooter | Fußzeile | links |
.CenterFooter | Fußzeile | mitte |
.RightFooter | Fußzeile | rechts |
Makro 2 (füllt Kopf- und Fußzeile) zum Kopieren:
Sub kopf_und_fußzeile_füllen() ' Liest Inhalte aus den Zellen CA1 - CA5 und schreibt sie in die Fußzeile ' und schreibt einen Variableninhalt (kozei) in die Kopfzeile ' Klaus-Dieter Oppermann kozei = "Meine Tabelle" ' Inhalt Kopfzeile For r = 1 To 5 ' Beginn Schleife fuzei = fuzei & " " & Range("CA" & r) ' Zellinhalte in die Variable einlesen Next r ' Wendepunkt für Schleife With ActiveSheet.PageSetup ' Eingelesene Werte... .CenterHeader = kozei ' ...in die Kopfzeile schreiben (mittig) .RightFooter = fuzei ' ...in die Fußzeile schreiben (rechts) End With ' Ende schreiben End Sub ' Ende Makro |