Tipps & Tricks
17.02.2004, 12:45 Uhr
Zellinhalt in die Fusszeile übernehmen - Excel
Können in Excel Zelleninhalte automatisch in die Fusszeile übernommen werden?
Dies funktioniert nur mit VBA. Wenn Sie beispielsweise den Inhalt der Zelle A1 in die Mitte der Fusszeile übernehmen möchten, erstellen Sie folgendes Makro in einem Modul:
Sub Fusszeile()
ActiveSheet.PageSetup.CenterFooter = Range("A1").Value
End Sub
ActiveSheet.PageSetup.CenterFooter = Range("A1").Value
End Sub
Makro-Modul
Möchten Sie den Zellinhalt links oder rechts in die Fusszeile übernehmen, ersetzen Sie «CenterFooter» durch «LeftFooter» oder «RightFooter». Dieses Makro können Sie an eine Schaltfläche binden oder ihm eine Tastenkombination zuweisen, damit es schnell ausgeführt werden kann.
Wenn Sie den Zellinhalt automatisch übernehmen lassen wollen, müssen Sie das Makro mit einem Ereignis verknüpfen. Zum Beispiel können Sie es ausführen lassen, bevor Sie das Tabellenblatt drucken. Dann muss die Prozedur jedoch in «Diese Arbeitsmappe» erstellt werden.
Makro in «Diese Arbeitsmappe»
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Range"A1").Value
End Sub
ActiveSheet.PageSetup.LeftFooter = Range"A1").Value
End Sub
Zum Schluss noch ein kleiner Tipp: Sie brauchen das Tabellenblatt nicht tatsächlich auszudrucken. Es reicht schon, wenn Sie die Seitenansicht aktivieren.
26.02.2008