ich habe in einem Tabellenblatt folgenden Code für eine Gültigkeitsprüfung hinterlegt (mit Recorder aufgezeichnet und in diesen Tabellencode hineinkopiert).
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Range("B2:V2").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="1,2,3,4,5,6,7,8,9,X,/,-"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Unerlaubtes Zeichen"
.InputMessage = ""
.ErrorMessage = "Dieses Zeichen ist nicht erlaubt!"
.ShowInput = False
.ShowError = True
End With
'.... hier kommt weiterer Code, der für sich allein läuft.
End Sub
Bei Änderungen im Blatt kommt die Fehlermeldung "1004 - Anwendungs- oder objektorientierter Fehler", und zwar in der Zeile ".Add Type ...".
Vielleicht wäre noch zu bemerken, daß außer den Zellen B2 bis V2 alle anderen geschützt sind.
Im Archiv habe ich dazu nichts gefunden. Kann mir jemand helfen?
Gruß
Dieter