Schriftart + Datum in Fusszeile per VBA

Forumthread: 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Infobox / Tutorial

Schriftart und Datum in der Fußzeile mit VBA anpassen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Füge ein neues Modul hinzu: Klicke auf "Einfügen" > "Modul".

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

Starte das Makro: Drücke F5 oder wähle "Ausführen" > "Sub/UserForm ausführen".
Ü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:

Gehe zu "Seitenlayout".
Klicke auf "Kopf- und Fußzeile".
Wähle die Option für die Fußzeile aus und füge das Datum manuell ein.
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)

Schriftart + Datum in Fusszeile per VBA

Forumthread: Schriftart + Datum in Fusszeile per VBA

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Schriftart und Datum in der Fußzeile mit VBA anpassen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Schriftart + Datum in Fusszeile per VBA

Forumthread: Schriftart + Datum in Fusszeile per VBA

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Schriftart und Datum in der Fußzeile mit VBA anpassen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread