In diesem Beispiel wird der Zelle E5 eine Gültigkeitsprüfung hinzugefügt.
With Range("e5").Validation .Add xlValidateWholeNumber, _ xlValidAlertInformation, xlBetween, "5", "10" .InputTitle = "Integers" .ErrorTitle = "Integers" .InputMessage = "Enter an integer from five to ten" .ErrorMessage = "You must enter a number from five to ten" End With