Hallo User,
bin mit meinem Latein endgültig am Ende.
Der unten stehende Code verursacht bei mir immer den Laufzeitfehler (Nr. 1004 'Anwendungs- oder objektdefinierter Fehler)
Zu Testzwecken habe ich den Code in eine neue Mappe eingefügt und angepasst - und siehe da - es funktioniert plötzlich.
Ich habe nun den Verdacht, dass irgendwelche anwendungsinternen Sprach, System- oder Ländereinstellungen, insbesondere was die Interpretation von per Code erstellten Formeln betrifft, verändert werden müssen.
Vielleich hat von Euch jemand einen Rat, bin echt am Verzweifeln
Danke
Grüße Joachim
Code:
With Worksheets("Kostenübersicht").Range("N" & intZ).Validation
.Delete
.Add Type:=xlValidateCustom, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:="=OR(ISNUMBER(N" & intZ & "),(CELL(""CONTENTS"",N" & intZ & ")
=""B""),(CELL(""CONTENTS"",N" & intZ & ")=""B""))"
......
end with