VBA Error beim erstellen einer Validierung
21.03.2019 12:33:29
Peter(silie)
ich füge eine Datenvalidierung per VBA Code in eine Range ein.
Dabei erhalte ich aber einen Objektdefinierten fehler ab der Fettmarkierten Zeile.
Kann mir jemand sagen wo das Problem liegt?
Private Sub ApplyRestriction(ByRef target As Range)
If (target Is Nothing) Then Exit Sub
Dim msg As String
msg = "Kein gültiges Format." & vbCrLf & vbCrLf & _
"Zugelassen: dd.mm.yyyy" & vbCrLf & _
"Beispiel: " & Format(Date, "dd.mm.yyyy")
Dim addr As String: addr = Replace(target.Address, "$", vbNullString)
Dim frml As String: frml = "=UND(ISTZAHL(" & addr & ");" & _
addr & ">0;" & addr & " .Add Type:=xlValidateCustom, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:=frml
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "FORMAT"
.ErrorTitle = "INVALID FORMAT"
.InputMessage = "Datum eingeben"
.ErrorMessage = msg
.ShowInput = True
.ShowError = True
End With
End Sub
Die Formel die generiert wird sieht wie folgt aus:
=UND(ISTZAHL(H8);H8>0;H8Formel habe ich hier her:
http://www.excelformeln.de/formeln.html?welcher=197
Anzeige