Kann mir jemand sagen wie ich den jeweiligen Wochentag in die Kopfzeile bringe. Dh. (Freitag, 5.3.10) nicht nur 5.3.10.
Besten Dank im voraus.
Pia
Sub Kopfdatum()
With ActiveSheet.PageSetup
.CenterHeader = Format(Date, "DDDD, MM.DD.YYYY")
End With
End Sub
Statt Date (=heute) kannst du natürlich auch ein fixes Datum oder den Bezug auf eine Zelle per Range("A1").Value oder Cells(x,y) setzen.Um den Wochentag in die Kopfzeile eines Excel-Dokuments einzufügen, kannst du VBA verwenden. Folge diesen Schritten:
Öffne Excel und das Arbeitsblatt, in dem du die Kopfzeile ändern möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Sub Kopfdatum()
With ActiveSheet.PageSetup
.CenterHeader = Format(Date, "DDDD, MM.DD.YYYY")
End With
End Sub
Schließe den VBA-Editor und kehre zurück zu Excel.
Drücke ALT + F8, wähle Kopfdatum aus und klicke auf Ausführen.
Jetzt wird der aktuelle Wochentag zusammen mit dem Datum in der Kopfzeile angezeigt. Du kannst das Datum auch anpassen, indem du ein fixes Datum oder den Bezug auf eine Zelle verwendest.
Fehler: Das benutzerdefinierte Format wird nicht in der Kopfzeile angezeigt.
Fehler: VBA wird nicht ausgeführt oder gibt eine Fehlermeldung zurück.
Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter und aktiviere die Makro-Einstellungen.Wenn du kein VBA verwenden möchtest, gibt es eine alternative Methode:
Füge eine Zeile in deinem Tabellenblatt hinzu, in der der Wochentag berechnet wird. Verwende die Formel:
=TEXT(A1, "DDDD")
(Hierbei wird angenommen, dass sich das Datum in Zelle A1 befindet.)
Nutze die Funktion "Wiederholungszeilen" im Seitenlayout, um diese Zeile auf jeder Druckseite anzuzeigen.
Angenommen, du hast das Datum in Zelle A1:
Gib in Zelle B1 die folgende Formel ein, um den Wochentag zu berechnen:
=TEXT(A1, "DDDD")
Formatiere die Zelle B1 nach deinem Wunsch.
Gehe zu Seitenlayout, klicke auf Drucken, und wähle Wiederholungszeilen aus, um die Kopfzeile anzupassen.
Jetzt wird der Wochentag in der Kopfzeile angezeigt, ohne dass du VBA verwenden musst.
Verwende die Worksheet_Change-Ereignisprozedur, um die Kopfzeile automatisch zu aktualisieren, wenn sich das Datum in einer bestimmten Zelle ändert.
Experimentiere mit verschiedenen Datumsformaten in VBA, um die Darstellung zu optimieren. Zum Beispiel kannst du .CenterHeader = Format(Date, "dddd, dd.mm.yyyy") verwenden, um den Wochentag und das Datum in einem anderen Format anzuzeigen.
1. Wie kann ich den Wochentag für ein festes Datum in die Kopfzeile einfügen?
Verwende den VBA-Code und setze Date durch ein festes Datum, z.B. #03/05/2010#.
2. Ist es möglich, den Wochentag dynamisch zu aktualisieren?
Ja, wenn du VBA verwendest, wird der Wochentag automatisch aktualisiert, wenn du die Datei öffnest oder den Code ausführst. Alternativ kannst du die Formel im Tabellenblatt nutzen, um den Wochentag dynamisch anzuzeigen.