Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Schriftart + Datum in Fusszeile per VBA

Schriftart + Datum in Fusszeile per VBA
15.09.2005 13:49:32
Xico
Hallo,
in meine Fusszeile gebe ich automatisch das Datum aus. Nun möchte ich dies auch in einer bestimmten Schriftart ausgeben. Wer kann mir helfen:

Sub Fuss()
With ActiveSheet
.PageSetup.RightFooter = Format(DateSerial(Year(Now()), _
Month(Now()) + 1, 1) - 1, "dd.mm.yyyy")                  '<=====|
End With                                                           '|
End 

Sub                                                                '|
'                   wie bekomme ich diese Schrift hier rein?!?          |
'"&""Courier New,Standard" ---------------------------------------------|
Danke schon mal für 'n guten Tip & Gruss
Xico

		
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schriftart + Datum in Fusszeile per VBA
15.09.2005 13:54:15
MichaV
Hallo Xico,
schonmal mit Makrorecorder ausprobiert?
Gruss- Micha
AW: Schriftart + Datum in Fusszeile per VBA
15.09.2005 14:02:39
Xico
Hallo Micha,
yep! Daher habe ich die Info:
.PageSetup.RightFooter ="&""Courier New,Standard""15.09.2005"
Aber ich habe das Datum auf Monatsletzten angepasst und nun weiss ich nicht wie ich mit der Schriftart weiterverfahren soll.
Gruss
Xico
Anzeige
AW: Schriftart + Datum in Fusszeile per VBA
15.09.2005 14:16:10
MichaV
Hallo,
hab Dich flasch verstanden.
Mach mal so:
.RightFooter = "&""Courier New,Standard""" & Format(DateSerial(Year(Now()), _
Month(Now()) + 1, 1) - 1, "dd.mm.yyyy")
Gruss- Micha
PS: Rückmeldung wäre nett.
Ok - Fall gelöst
15.09.2005 15:00:42
Xico
Hallo Micha,
ja, so hat`s funktioniert! War das eine Gänsefüschen (hätte mir auch selber einfallen müssen, da ich ähnliches schon mal hatte).
Danke naochmals ;-)
Xico
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Schriftart und Datum in der Fußzeile mit VBA anpassen


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Füge ein neues Modul hinzu: Klicke auf "Einfügen" > "Modul".

  3. Schreibe den VBA-Code. Verwende den folgenden Code, um das Datum in der Fußzeile anzuzeigen und die Schriftart anzupassen:

    Sub Fuss()
       With ActiveSheet
           .PageSetup.RightFooter = "&""Courier New,Standard""" & _
               Format(DateSerial(Year(Now()), Month(Now()) + 1, 1) - 1, "dd.mm.yyyy")
       End With
    End Sub
  4. Starte das Makro: Drücke F5 oder wähle "Ausführen" > "Sub/UserForm ausführen".

  5. Überprüfe die Fußzeile in Deinem Arbeitsblatt, um sicherzustellen, dass das Datum korrekt formatiert ist.


Häufige Fehler und Lösungen

  • Fehler: Das Datum wird nicht angezeigt.

    • Lösung: Stelle sicher, dass der VBA-Code korrekt eingegeben wurde und dass Du das Makro tatsächlich ausführst.
  • Fehler: Die Schriftart wird nicht angewendet.

    • Lösung: Überprüfe, ob die Schriftart "Courier New" auf Deinem System installiert ist. Ansonsten kannst Du eine andere Schriftart wählen, die verfügbar ist.

Alternative Methoden

Falls Du VBA nicht verwenden möchtest, kannst Du auch die Kopf- und Fußzeilen-Option in Excel direkt nutzen:

  1. Gehe zu "Seitenlayout".
  2. Klicke auf "Kopf- und Fußzeile".
  3. Wähle die Option für die Fußzeile aus und füge das Datum manuell ein.
  4. Um die Schriftart zu ändern, klicke auf die Fußzeile und wähle die gewünschte Schriftart über die Formatierungsoptionen.

Praktische Beispiele

Hier sind einige Beispiele, wie Du das Datum in der Fußzeile anpassen kannst:

  • Beispiel 1: Das aktuelle Datum

    .PageSetup.RightFooter = "&""Courier New,Standard""" & Format(Date, "dd.mm.yyyy")
  • Beispiel 2: Das Datum des letzten Tages des aktuellen Monats

    .PageSetup.RightFooter = "&""Courier New,Standard""" & Format(DateSerial(Year(Now()), Month(Now()) + 1, 0), "dd.mm.yyyy")

Tipps für Profis

  • Makrorecorder nutzen: Du kannst den Makrorecorder verwenden, um dir die genauen Schritte zu merken, wie Du eine Fußzeile formatierst.
  • Variablen verwenden: Wenn Du das Datum mehrfach anpassen musst, kann es hilfreich sein, das Datum in einer Variablen zu speichern und diese dann in der Fußzeile zu verwenden.

    Dim lastDate As Date
    lastDate = DateSerial(Year(Now()), Month(Now()) + 1, 0)
    .PageSetup.RightFooter = "&""Courier New,Standard""" & Format(lastDate, "dd.mm.yyyy")

FAQ: Häufige Fragen

1. Kann ich die Schriftart in der Fußzeile ändern? Ja, Du kannst die Schriftart in der Fußzeile ändern, indem Du den entsprechenden VBA-Code anpasst, wie im Tutorial beschrieben.

2. Was mache ich, wenn das Datum nicht korrekt angezeigt wird? Überprüfe den VBA-Code auf Fehler und stelle sicher, dass die Formatierung korrekt ist. Teste auch, ob die Schriftart auf Deinem Computer verfügbar ist.

3. Kann ich mehrere Schriftarten in einer Fußzeile verwenden? Das ist in Excel nicht direkt möglich. Du kannst jedoch verschiedene Abschnitte der Fußzeile unterschiedlich formatieren, indem Du die Hauptformatierung für die Schriftart anpasst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige