Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Dokumententitel und UserName in Kopfzeile übernehmen
Gruppe
Kopf/Fußzeile
Problem
Dokumententitel und Name des Autors sollen in die Druckkopfzeile übernommen werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1 Sub PrintSheet() Dim sHead As String With ThisWorkbook.BuiltinDocumentProperties sHead = "Title: " & .Item(1) & vbLf & "Author: " & .Item(3) End With ActiveSheet.PageSetup.LeftHeader = sHead ActiveSheet.PrintPreview End Sub