folgender Code soll ermöglichen, dass in einer bestimmten Zeile der Wertebereich des Datums auf den Zeitraum des jeweiligen Monats begrenzt wird:
Dim Bereich As Range
Dim monat As Integer
Dim enddatum As Date
monat = 1
For Each ws In ThisWorkbook.Worksheets
enddatum = DateSerial(2023, monat, 1)
enddatum = WorksheetFunction.EoMonth(enddatum, 0)
With ws.Range("A3").Validation
.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
Formula1:="01." & Format(monat, "00") & ".2023", Formula2:=enddatum
.ErrorMessage = "Falsche Datumeingabe oder falsches Format: dd.mm.yyyy"
.ShowError = True
.ShowInput = True
End With
monat = monat + 1
Next ws
Beim Ausführen erschreint dann folgende Fehlermeldung:
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
Gerne nehme ich Rückfragen entgegen,
vielen Dank im voraus.