ich schreibe gerade ein Makro, welches im Bereich von D13:D21 nur ein Datum als Eingabe akzeptiert.
Das Datum muss zwischen dem 1.1.2010 und dem aktuellen Datum liegen.
Leider bringt er beim Kompilieren einen Fehler, was habe ich falsch gemacht?
Sub AddValidation()
With Range("D3:D12").Validation
.Delete
.Add _
Type:=xlValidateDate, _
AlertStyle:=xlValidWarning, _
Operator:=xlBetween, _
Formula1:=#1/1/2010#, _
Formula2:=IsDate
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "CSDB Hinweis"
.InputMessage = "In dieser Zelle ist nur ein Datum erlaubt"
.ShowInput = True
.ErrorTitle = "CSDB Fehler"
.ErrorMessage = "Kein Datum eingegeben"
.ShowError = True
End With
End Sub