Datumeingabe einschränken mit VBA - Fehlermeldung

Guten Tag,
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.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DatumSchranke() Dim Bereich As Range Dim monat As Integer 'Dim enddatum As Date monat = Month(Now) For Each ws In ThisWorkbook.Worksheets 'enddatum = DateSerial(2023, monat, 1) 'enddatum = WorksheetFunction.EoMonth(enddatum, 0) With ws.Range("A20").Validation .Delete .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _ Formula1:=Format(DateSerial(Year(Now), Month(Now), 1), "MM\/DD\/YYYY"), _ Formula2:=Format(DateSerial(Year(Now), Month(Now) + 1, 1) - 1, "MM\/DD\/YYYY") .ErrorMessage = "Falsche Datumeingabe oder falsches Format: dd.mm.yyyy" .ShowError = True .ShowInput = True End With monat = monat + 1 Next ws End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal target As Range) If target.Row > 3 Or target.Column > 1 Then Exit Sub 'Zelle A3 Application.EnableEvents = False If Month(target) > CInt(Sh.Name) Or Year(target) > 2023 Or Not IsDate(target) Then MsgBox "Nicht zulässig": target = "" Application.EnableEvents = True End Sub

Sub DatumSchranke() 'Dim Bereich As Range Dim monat As Integer 'Dim enddatum As Date monat = Month(Now) For Each ws In ThisWorkbook.Worksheets 'enddatum = DateSerial(2023, monat, 1) 'enddatum = WorksheetFunction.EoMonth(enddatum, 0) With ws.Range("A20").Validation .Delete .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _ Formula1:=Format(DateSerial(Year(Now), monat, 1), "MM\/DD\/YYYY"), _ Formula2:=Format(DateSerial(Year(Now), monat + 1, 1) - 1, "MM\/DD\/YYYY") .ErrorMessage = "Falsche Datumeingabe oder falsches Format: dd.mm.yyyy" .ShowError = True .ShowInput = True End With monat = monat + 1 Next ws End Sub

Beliebteste Forumthreads (12 Monate)

Datumeingabe einschränken mit VBA - Fehlermeldung

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datumeingabe einschränken mit VBA - Fehlermeldung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread