Über eine Inputbox soll der Inhalt einer Kopfzeile bestimmt werden. Diese soll dann mit festen Formaten in das aktive Blatt eingefügt werden.
Diese Formate sind: Schriftgröße 16; Schriftart ITCOfficinaSans LT Book,Fett
So sieht das Experiment aus, aber er läuft nicht wirklich!
headername = InputBox("Welchen Titel soll das Blatt tragen?")
With ActiveSheet.PageSetup
.CenterHeader = "&b""&16"&headername
'&""ITCOfficinaSans LT Book,Fett"&"&16"
End With
Bitte um Hilfe
Danke
OP