Mit Hilfe von VBA lassen sich die Kopf- und Fußzeile sehr einfach und schnell befüllen.
Global Const Title As String = "Titel"
Global Const Company As String = "Company"
Global Const Department As String = "Department"
Global Const Author As String = "Stefan Strobel"
Global Const Version As String = "1.0"
Global Const Year As String = "2015"
Global Const Month As String = "Month"
Global Const EMail As String = "help@me"
Sub KopfFußZeile()
With ActiveSheet.PageSetup
.LeftHeader = "&8" & Title & vbCr & "Version: " & Version & " / " & Month & " " & Year
.CenterHeader = "&8"
.RightHeader = "&8"
.LeftFooter = "&8" & Company & vbCr & Department
.CenterFooter = "&8Created on: " & Date & " " & Time
.RightFooter = "&8" & " Contact: " & EMail & vbCr & "Author: " & Author
End With
'ActiveWindow.SelectedSheets.PrintPreview
End Sub
Anstatt die Variablen zu definieren, kann man die Einträge natürlich auch gleich direkt in die jeweiligen Kopf- und Fußzeilen-Bereiche schreiben. Da ich die Variablen aber noch mehrmals an unterschiedlichen Stellen in der Arbeitsmappe benötigt habe, habe ich diese als globale Variablen definiert.
Die Schriftgröße in der Kopf- und Fußzeile wird mit dem Befehl &8 gesetzt.
ist absolut technik-begeistert und großer Fan von Linux und Open Source. Raspberry Pi Bastler der ersten Stunde und nach wie vor begeistert von dem kleinen Stück Hardware, auf dem er tolle Projekte umsetzt. Teilt hier seine Erfahrungen mit Nextcloud, Pi-hole, YubiKey, Synology und openmediavault und anderen spannenden IT-Themen. Nutzt Markdown und LaTeX zum Dokumentieren seiner Projekte und Gitea zum Versionieren. Sitzt vor einem 49“ Monitor, nutzt Windows und MacOS zum Arbeiten, Linux auf seinen Servern und virtuellen Maschinen und hört dabei Spotify und MP3s und Radio-Streams über seinen RadioPi.
Trinkt gerne fairen Kaffee und freut sich deshalb sehr über jede Spende.
• 
