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