Wie finde ich einen Wochenende-Tag für jeden Monat in VBA?

Um in VBA (Visual Basic for Applications) ein für jeden Monat zu finden, kannst du eine Schleife verwenden, die durch die Monate eines Jahres iteriert und prüft, welcher Tag ein Wochenende ist. Hier ist ein Beispielcode, der das erste Wochenende (Samstag) jedes Monats findet:

```vba
Sub FindWeekendDays()
Dim year As Integer
Dim month As Integer
Dim day As Integer
Dim dateValue As Date

year = 2023 ' Setze das gewünschte Jahr

For month = 1 To 12
For day = 1 To 31
On Error Resume Next ' Fehler ignorieren, wenn der Tag nicht existiert
dateValue = DateSerial(year, month, day)
On Error GoTo 0 ' Fehlerbehandlung zurücksetzen

If Weekday(dateValue, vbMonday) = 6 Then ' Samstag finden
Debug.Print "Erster Samstag im Monat " & month & " ist der " & day & "."
Exit For ' Schleife für den aktuellen Monat beenden
End If
Next day
Next month
End Sub
```

Dieser Code durchläuft jeden Monat des angegebenen Jahres und sucht nach dem ersten Samstag. Wenn ein Samstag gefunden wird, wird das Datum ausgegeben und die Schleife für den aktuellen Monat beendet.

Falls du den Sonntag oder ein anderes Wochenende finden möchtest, kannst du die Bedingung `If Weekday(dateValue, vbMonday) = 6 Then` entsprechend anpassen. `vbMonday` bedeutet, dass die Woche mit Montag beginnt, und `6` steht für Samstag. Für Sonntag wäre es `7`.