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ß
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen