Ich will ueber eine Userform mit etlichen Checkboxen und einigen Textboxen meinen Usern helfen, komfortabel Kopf- und Fußzeilen zu erstellen, die u.a. auch Pfadangaben enthalten können, was ja bei Excel selbst nicht vorgesehen ist. Er macht mir auch alles (incl. Header, was ja ähnlich funktioniert), nur die rechte Fußzeile zeigt er mir nicht an.
Weiß jemand Rat?
________________
Private Sub cmdOK_Click()
Dim strHeader As String
Dim strLeft As String
Dim strCenter As String
Dim strRight As String
MsgBox "Datum: " & txtDate.Text
MsgBox "Initialen: " & txtInitials.Text
strHeader = "&8" & txtHeaderContent.Text
strLeft = "&8"
strCenter = "&8"
strRight = "&8"
If chkSheet.Value = True Then _
strLeft = strLeft & "&a" & Chr(10)
If chkPath.Value = True Then _
strLeft = strLeft & ActiveWorkbook.Path
If chkFileName.Value = True Then _
strLeft = strLeft & ActiveWorkbook.Name
If chkPage.Value = True Then _
strCenter = "Page &P of &N"
If chkDate.Value = True Then _
strRight = strRight & Format(txtDate.Text)
If chkInitials.Value = True Then _
strRight = strRight & Format(txtInitials.Text)
With ActiveSheet.PageSetup
.CenterHeader = strHeader
.LeftFooter = strLeft
.CenterFooter = strCenter
.RightFooter = "&8" & strRight
.Orientation = xlLandscape
End With
frmFooter.Hide
End Sub