VBA Validation.Add Methode fehlgeschlagen

Question

So öffnete ich ein neues Excel-Arbeitsblatt nur um mehr zu erfahren über Data Validation Creation via VBA und ich trat in den folgenden Code, der ein Beispiel von Microsoft Developer Network-Website war:

With Range("$E$5").Validation 
.Add Type:=xlValidateWholeNumber, _ 
AlertStyle:=xlValidAlertStop, _ 
Operator:=xlBetween, Formula1:="5", Formula2:="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 

I die folgende Fehlermeldung anzeigt, wenn ich den Code ausgeführt:

Laufzeitfehler '-2147417848 (80010108)':

Methode 'hinzufügen' des Objekts 'Validation' fehlgeschlagen

ich überall gesucht, aber nichts über das Problem nicht finden ...

Answer 1

Dies geschieht, wenn es bereits eine Validierung für die gewünschte Zelle. Wenn Sie also diesen Code in einem neuen Arbeitsblatt ausführen, wird er zwar einmal ausgeführt, wird aber beim zweiten Mal fehlschlagen.

Löschen Sie daher alle Überprüfungen, bevor Sie eine neue hinzufügen.

With Worksheets("Sheet1").Range("$E$5").Validation 
    .Delete 'delete validations first 

    .Add Type:=xlValidateWholeNumber, _ 
     AlertStyle:=xlValidAlertStop, _ 
     Operator:=xlBetween, Formula1:="5", Formula2:="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 

Beachten Sie, dass Sie immer ein Blatt für Ihren Bereich wie Worksheets("Sheet1").Range zu vermeiden, irgendwelche Probleme geben sollte.