Startseite

Kopf- und Fußzeile "dynamisch" füllen

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