Supportnet / Forum / Tabellenkalkulation
Leerzeile in Fußzeile per VBA
Frage
Hallo Leute,
ich habe ein Makro, das ein Tabellenblatt grafisch formatiert, unter anderem auch die Fußzeile, die ich so setze:
ActiveSheet.PageSetup.CenterFooter = "Fußzeilentext"
Nun überlappt sich aber der mittlere Fußzeilentext mit dem Text in der linken Fußzeile und ich würde gerne ein "Return" oder eine Leerzeile in den CenterFooter einfügen, damit dieser eine Zeile tiefer steht. Ist so etwas vorgesehen?
Danke
Tobi
Antwort 1 von coros
Hi Tobi,
das geht so leider nicht ganz. Da der Text in der Fußzeile immer unten ausgerichtet ist, kann man das nur hinbekommen, dass die mittige Fußzeile tiefer als die linke oder rechte steht, in dem man in der linken oder der rechten eine Leerzeile hinten anhängt. Das würde als Makro z.B. folgendermaßen aussehen:
Mit dem Makro wird die linke Fußzeile ausgelesen und dann wieder eingefügt und am Ende eine Leerzeile gesetzt (Befehl Chr(13) ).
Wenn Du lieber den mittigen text höer als links oder rechts haben möchtest, dann sähe der Befehl wie der in Deiner Frage aus, nur dass am Ende eben der Befehl Chr(13) mit einem Undzeichen (&) angehängt wird. Also würde der so aussehen:
Ich hoffe, Deine Frage ist beantwortet und Du kommst klar. Bei Fragen melde Dich.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
das geht so leider nicht ganz. Da der Text in der Fußzeile immer unten ausgerichtet ist, kann man das nur hinbekommen, dass die mittige Fußzeile tiefer als die linke oder rechte steht, in dem man in der linken oder der rechten eine Leerzeile hinten anhängt. Das würde als Makro z.B. folgendermaßen aussehen:
Sub_Fußzeile_mit_leerzeile
Linke_Fußzeile = ActiveSheet.PageSetup.LeftFooter
ActiveSheet.PageSetup.LeftFooter = Linke_Fußzeile & Chr(13)
End SubMit dem Makro wird die linke Fußzeile ausgelesen und dann wieder eingefügt und am Ende eine Leerzeile gesetzt (Befehl Chr(13) ).
Wenn Du lieber den mittigen text höer als links oder rechts haben möchtest, dann sähe der Befehl wie der in Deiner Frage aus, nur dass am Ende eben der Befehl Chr(13) mit einem Undzeichen (&) angehängt wird. Also würde der so aussehen:
ActiveSheet.PageSetup.CenterFooter = "Fußzeilentext" & Chr(13)
Ich hoffe, Deine Frage ist beantwortet und Du kommst klar. Bei Fragen melde Dich.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von TobiTobsen
Vielen Dank, hat mir echt geholfen. Auf dem Wege mit Chr(13) war ich auch schon, hat aber aus irgendeinem Grund nicht funktioniert. Jetzt gehts aber! Danke!!
Antwort 3 von ChatAlligator
Schön, wenn Chr(13) (=CarriageReturn) hier funktioniert
In MessageBoxen würde Chr(10) (=LineFeet) funktionieren
Die einwandfreie Methode wäre eine Kombination aus beidem, die VBA sogar als Befehl vorgesehen hat:
vbCrLf
In MessageBoxen würde Chr(10) (=LineFeet) funktionieren
Die einwandfreie Methode wäre eine Kombination aus beidem, die VBA sogar als Befehl vorgesehen hat:
vbCrLf