Wie berechne ich die Wochenenden in jedem Monat und den Februar in einem Schaltjahr mit VBA?

Um die Wochenenden für alle Monate eines Jahres, einschließlich des Februars in einem Schaltjahr, in VBA zu berechnen, kannst du den folgenden Code verwenden. Dieser Code durchläuft alle Tage eines Jahres, überprüft, ob der Tag ein Samstag oder Sonntag ist, und speichert diese Tage in einer Liste.

```vba
Sub BerechneWochenenden()
Dim Jahr As Integer
Dim Monat As Integer
Dim Tag As Integer
Dim Datum As Date
Dim Wochenenden As String

Jahr = InputBox("Bitte geben Sie das Jahr ein:", "Jahr eingeben")

For Monat = 1 To 12
For Tag = 1 To Day(DateSerial(Jahr, Monat + 1, 0))
Datum = DateSerial(Jahr, Monat, Tag)
If Weekday(Datum, vbMonday) > 5 Then
Wochenenden = Wochenenden & Datum & vbCrLf
End If
Next Tag
Next Monat

MsgBox "Die Wochenenden im Jahr " & Jahr & " sind:" & vbCrLf & Wochenenden
End Sub
```

Dieser Code funktioniert wie folgt:

1. Es wird das Jahr abgefragt, für das die Wochenenden berechnet werden sollen.
2. Eine Schleife durchläuft alle Monate des Jahres.
3. Innerhalb dieser Schleife wird eine weitere Schleife durchlaufen, die alle Tage des aktuellen Monats durchläuft.
4. Für jeden Tag wird überprüft, ob es sich um einen Samstag oder Sonntag handelt (`Weekday(Datum, vbMonday) > 5`).
5. Wenn der Tag ein Wochenende ist, wird er zu einer Liste (`Wochenenden`) hinzugefügt.
6. Am Ende wird eine Nachricht mit allen Wochenenden des Jahres angezeigt.

Dieser Code berücksichtigt automatisch Schaltjahre, da die `DateSerial`-Funktion dies intern handhabt.