Fußzeile
14.04.2017 12:34:39
guffels
Mit dem unten stehenden Code soll links, mittig und rechts die Fußzeile gefüllt werden. Es ist jedoch so, dass immer nur der RightFooter in der Mitte (also CenterFooter) steht.
Was ich bisher heraus gefunden habe:
Teile ich den Code in Left, Center und Right in einzelne Subs auf, funktioniert jeder für sich einwandfrei. Lass ich sie, egal in welcher Reihenfolge, nacheinander laufen, löscht die letzte Prozedur die anderen Werte und schreibt den Text in die Mitte.
Es ist unerheblich, ob ich die Prozeduren über eine Schaltfläche aus dem Tabellenblatt oder aus der VBA-Umgebung heraus starte.
Sub Fußzeile()
Dim Tabelle As Integer
For Tabelle = 2 To 5
Worksheets(Tabelle).PageSetup.LeftFooter = "&""Myriad Pro Semi Cond, Standard""&09& _
K282828Firma &KCD071EMustermann"
Worksheets(Tabelle).PageSetup.CenterFooter = "&""Myriad Pro SemiCond, Standard""&09& _
K282828EÜR" _
& "&""Myriad Pro SemiCond, Standard""&09&KCD071E" & " " & Worksheets(1).Cells(2, 2). _
Value _
& "&""Myriad Pro SemiCond, Standard""&09&K282828 Journal"
Worksheets(Tabelle).PageSetup.RightFooter = "&""Myriad Pro SemiCond, Standard""&09& _
K282828Seite" & " &KCD071E&P&K282828 von &KCD071E&N"
Next Tabelle
End Sub