mit den Angaben einer UF möchte ich die Kopfzeile formatieren.
Aber funkt nicht.
Danke für Eure Hilfe.
Gruß
Sigi
https://www.herber.de/bbs/user/94498.xlsm
sHeader = "&" & ComboBox2
sHeader = sHeader & "&""" & ComboBox1
If ComboBox3 = "ja" Then
sHeader = sHeader & ",Fett"""
Else
sHeader = sHeader & """"
End If
sHeader = sHeader & Label1 & TextBox1 & vbLf
sHeader = sHeader & Label2 & TextBox2 & vbLf
sHeader = sHeader & Label3 & TextBox3 & vbLf
sHeader = sHeader & Label4 & TextBox4
With ActiveSheet.PageSetup
.RightHeader = sHeader
End With
Gruß