In diesem Beispiel wird der Zelle A10 eine Datenüberprüfung hinzugefügt. Der Eingabewert muss zwischen 5 und 10 liegen; gibt der Benutzer ungültige Daten ein, wird eine Fehlermeldung, jedoch keine Eingabemeldung angezeigt.
With Worksheets(1).Range("A10").Validation .Add Type:=xlValidateWholeNumber, _ AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="5", _ Formula2:="10" .ErrorMessage = "value must be between 5 and 10" .ShowInput = False .ShowError = True End With