Ändern/Einfügen Datenüberprüfung schlägt fehl
23.04.2019 09:47:49
Communicator
Beispiel:
Private Sub ModifyValidation()
ActiveCell.Validation.Modify Formula1:="=LÄNGE(K24)
Sofern ich das =-Zeichen in der Formel weglasse, läuft das Script zwar durch, aber die Formel funktioniert natürlich nicht mehr. Ich könnte mir vorstellen, dass irgendeine Excel-Option dieses Verhalten hervorruft, aber welche?Dies hier läuft durch, nutzt aber nichts:
Private Sub ModifyValidation()
ActiveCell.Validation.Modify Formula1:="LÄNGE(K24)
Wer sich fragt, wozu das gut ist. Ich möchte mehreren Zellen eine Datenüberprüfung hinzufügen.
Sub AddDatenüberprüfung()
Dim i As Integer
For i = 24 To 263
Cells(i, 11).Select
With Cells(i, 11).Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
Formula1:="=LÄNGE(K24)
Bei der Zeile add.Type... kommt ein Laufzeitfehler 1004. Weiß jemand, wie ich die Datenüberprüfung zum Laufen bekomme?