benutzerd. Datenüberprüfung - Fehler 1004
M.
Hallo,
Ich möchte eine Datenüberprüfung einfügen, die mir überprüft, ob im Selektierten Bereich nur textformatierte Zahlen enthalten sind.
Leider führt die Zeile
".Add" bei der Formel zu einem Fehler.
(Ich selektiere A2:A5 - nur als Beispiel)
Kann mir jemand helfen?
Sub Zahl()
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=VALUE(A2)"
.IgnoreBlank = False
End With
ActiveSheet.CircleInvalid
End Sub