Seltsame Probleme mit RightFooter

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm CheckBox TextBox MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Seltsame Probleme mit RightFooter
von: Maria
Geschrieben am: 15.05.2002 - 15:43:56

Hallo Excel-Cracks!

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

nach oben   nach unten

Selbst gelöst!
von: Maria
Geschrieben am: 15.05.2002 - 15:56:28

Ich muß ein " " vor dem Datum einfügen, weil er sich sonst verschluckt...

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Vergleich von Werten"