Alle Donnerstage eines Jahres in Excel auflisten
Schritt-für-Schritt-Anleitung
Um alle Donnerstage eines bestimmten Jahres in Excel aufzulisten, kannst Du das folgende VBA-Skript verwenden. Stelle sicher, dass Du die Makros in Excel aktiviert hast.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu starten.
- Wähle
Einfügen > Modul, um ein neues Modul zu erstellen.
- Kopiere den folgenden VBA-Code in das Modul:
Option Explicit
Sub Donnerstage()
Dim Sp As Integer, MA As Date, TTag As Date, Z1 As Integer, Zeile As Integer
Dim WT As Integer, Jahr As Integer
WT = 4 ' Donnerstag
Jahr = Cells(1, 1)
Z1 = 3 ' erste Zeile
' Reset
Rows(Z1).Resize(5).Clear
For Sp = 2 To 24 Step 2
Zeile = Z1 ' Zeile, in die geschrieben wird
MA = DateSerial(Jahr, Sp / 2, 1) ' Monatsanfang
If Weekday(MA, vbMonday) <= WT Then
TTag = WT - Weekday(MA, vbMonday) + MA
Else
TTag = 7 - Weekday(MA, vbMonday) + WT + MA
End If
Do Until TTag > DateSerial(Jahr, Month(MA) + 1, 0)
With Cells(Zeile, Sp)
.Value = TTag
.NumberFormat = "DDD DD.MM"
End With
TTag = TTag + 7
Zeile = Zeile + 1
Loop
Next
End Sub
- Schließe den VBA-Editor.
- Gib in Zelle A1 das Jahr ein, dessen Donnerstage Du auflisten möchtest.
- Führe das Makro
Donnerstage aus, um die Daten in die Tabelle einzutragen.
Häufige Fehler und Lösungen
Fehler: Makro läuft nicht.
Lösung: Überprüfe, ob die Makros in den Excel-Optionen aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen.
Fehler: Falsches Jahr wird angezeigt.
Lösung: Stelle sicher, dass Du das Jahr korrekt in Zelle A1 eingegeben hast.
Alternative Methoden
Falls Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die folgende Formel nutzen, um alle Donnerstage in einer Spalte zu erzeugen:
- Gib in Zelle B1 das Datum des ersten Donnerstags des gewünschten Jahres ein.
- Verwende die folgende Formel in Zelle B2:
=B1 + 7
- Ziehe die Formel nach unten, um die Donnerstage des Jahres aufzulisten.
Praktische Beispiele
Angenommen, Du möchtest alle Donnerstage im Jahr 2023 auflisten. Gib einfach 2023 in Zelle A1 ein und führe das Makro Donnerstage aus. In der Tabelle erscheinen dann alle Donnerstagsdaten des Jahres.
Tipps für Profis
- Verwendet die
WENN-Funktion in Kombination mit WOCHENTAG, um weitere Wochentage wie Freitage oder Samstage zu berechnen. Dies könnte hilfreich sein, wenn Du die Methode für Excel alle Freitage des Jahres anpassen möchtest.
- Nutze benannte Bereiche für die Zelle mit dem Jahr, um den Code flexibler zu gestalten.
FAQ: Häufige Fragen
1. Kann ich die Liste der Donnerstage für ein anderes Jahr erstellen?
Ja, ändere einfach das Jahr in Zelle A1 und führe das Makro erneut aus.
2. Welche Excel-Version benötige ich für das VBA-Skript?
Das Skript funktioniert in Excel 2007 und späteren Versionen. Stelle sicher, dass Du die Makros aktiviert hast.