Sub t()
Dim wks As Worksheet
Dim intKW As Integer
With Application.WorksheetFunction
intKW = CInt((Date - .Weekday(Date, 2) - _
DateSerial(Year(Date + 4 - .Weekday(Date, 2)), 1, -10)) / 7)
End With
For Each wks In ActiveWorkbook.Worksheets
wks.PageSetup.CenterHeader = intKW
Next
End Sub
Um die aktuelle Kalenderwoche in der Kopfzeile eines Excel-Dokuments anzuzeigen, kannst du ein einfaches Makro verwenden. Hier ist die Schritt-für-Schritt-Anleitung:
Öffne Excel und das Arbeitsblatt, in dem du die aktuelle Kalenderwoche einfügen möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Wähle im Menü Einfügen die Option Modul, um ein neues Modul zu erstellen.
Kopiere den folgenden Code in das Modul:
Sub t()
Dim wks As Worksheet
Dim intKW As Integer
With Application.WorksheetFunction
intKW = CInt((Date - .Weekday(Date, 2) - _
DateSerial(Year(Date + 4 - .Weekday(Date, 2)), 1, -10)) / 7)
End With
For Each wks In ActiveWorkbook.Worksheets
wks.PageSetup.CenterHeader = intKW
Next
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle das Makro t aus und klicke auf Ausführen.
Jetzt wird die aktuelle Kalenderwoche in der Kopfzeile jedes Arbeitsblatts angezeigt.
Fehler: Makro wird nicht ausgeführt
Lösung: Stelle sicher, dass die Makros in Excel aktiviert sind. Überprüfe die Sicherheitsoptionen in den Excel-Einstellungen.
Fehler: Kopfzeile bleibt leer
Lösung: Überprüfe, ob du das richtige Makro ausgewählt hast und ob es keine Syntaxfehler im Code gibt.
Eine alternative Methode, um die aktuelle Kalenderwoche in die Kopfzeile einzufügen, besteht darin, die Funktion KALENDERWOCHE direkt in eine Zelle einzufügen und dann diese Zelle in die Kopfzeile zu verlinken.
=KALENDERWOCHE(HEUTE())Seitenlayout und wähle Kopf- und Fußzeile.Hier sind einige Beispiele, wie du die aktuelle Kalenderwoche in der Kopfzeile anpassen kannst:
Beispiel 1: Füge die Kalenderwoche zusammen mit dem Datum in der Kopfzeile ein. Ändere den VBA-Code wie folgt:
wks.PageSetup.CenterHeader = "KW " & intKW & " - " & Format(Date, "dd.mm.yyyy")Beispiel 2: Wenn du die Kalenderwoche nur in bestimmten Arbeitsblättern einfügen möchtest, kannst du im Code die Arbeitsblätter selektiv ansprechen.
Benutzerdefinierte Header: Du kannst die Kopfzeile weiter anpassen, indem du andere Informationen wie den Dateinamen oder den Benutzernamen hinzufügst.
Automatisierung: Setze das Makro so auf, dass es automatisch beim Öffnen der Datei oder beim Drucken ausgeführt wird, um sicherzustellen, dass die Kalenderwoche stets aktuell ist.
1. Wie kann ich die aktuelle Kalenderwoche in Excel anzeigen, ohne VBA zu verwenden?
Du kannst die Funktion KALENDERWOCHE verwenden und diese in eine Zelle einfügen, um die Kalenderwoche anzuzeigen.
2. Funktioniert das Makro in allen Excel-Versionen?
Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren, jedoch kann die Möglichkeit, Makros auszuführen, je nach Excel-Einstellungen variieren.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen