Wie mache ich bei Excel eine Liste die jeden ersten Samstag im Monat auflistet, ohne dass ich das alles selber eingeben muss!?
3 Antworten
Schreib ein Makro, welche dir die ersten 7 Tage des Monats auswertet.
Verwende dazu die Formel "WOCHENTAG" rsp. WEEKDAY.
Wenn das Ergebnis 7 ist, ist es ein Samstag
---
ich hab da mal kurz was hingeschludert...
Öffne deine Excel-Datei.
Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
klicke auf "Einfügen" und dann auf "Modul", um ein neues Modul hinzuzufügen.
Füge den unten stehenden VBA-Code in das Modul ein.
Schließe den VBA-Editor.
Jetzt kannst du das Makro ausführen:
Gehe zurück zu deinem Excel-Arbeitsblatt.
drücke ALT + F8, um das Makro-Auswahlfenster zu öffnen.
Wähle "ErsterSamstagImMonat" aus der Liste der Makros
und klicke auf "Ausführen".
Sub ErsterSamstagImMonat()
Dim AktuellesDatum As Date
Dim NaechsterMonat As Date
Dim ErsterSamstag As Date
Dim Zeile As Integer
' Bestimme das Startdatum
AktuellesDatum = DateSerial(Year(Date), Month(Date), 1)
' Schleife durch die Monate
Do While Year(AktuellesDatum) < Year(Date) + 2
' Bestimme den ersten Samstag im aktuellen Monat
ErsterSamstag = AktuellesDatum
Do While Weekday(ErsterSamstag) <> vbSaturday
ErsterSamstag = ErsterSamstag + 1
Loop
' Füge das Datum in die Tabelle ein
Zeile = Zeile + 1
Cells(Zeile, 1).Value = ErsterSamstag
' Gehe zum nächsten Monat
AktuellesDatum = DateSerial(Year(AktuellesDatum), Month(AktuellesDatum) + 1, 1)
Loop
End Sub
musst du halt ein wenig bearbeiten, wenns nicht passen sollte
=WERT("1." & MONAT(A1) & "." & JAHR(A1))+7-WOCHENTAG(WERT("1." & MONAT(A1) & "." & JAHR(A1)))
WERT("1." & MONAT(A1) & "." & JAHR(A1)) rechnet den 1. des Monats von dem Datum in A1 aus. Dazu addiert man (7 - Wochentag vom 1.).
Wenn in A immer jeweils der 1. als Wochentag steht kann man auch einfach statt der langen Formel =A1+7-WOCHENTAG(A1) schreiben ;)
Die Datumsliste in A bekommt man indem man die ersten 2 Zeilen eintippt und danach beide markiert und am Viereck runterzieht.
z.B. so, wobei Du den 1. Sa des Jahres in A1 und das lfd. Kalenderjahr (1.1.JJJJ) manuell eingeben müsstest und ab A2 die Formel