Ich suche schon seit längerem nach einer Lösung für folgendes Problem:
Worksheets(I).Range("F" & a).Formula = "=(WENN(D5=" & (Chr(34)) & "SCC-ST" & (Chr(34)) & ";D" & a & "*27,5/100;WENN(D5=" & (Chr(34)) & "SCC-1D" & (Chr(34)) & ";D" & a & "*29,5/100;WENN(D5=" & (Chr(34)) & "SCC-4H" & (Chr(34)) & ";D" & a & "*40,5/100;" & (Chr(34)) & "kein Service Level" & (Chr(34)) & "))))"
Mit oben dargestellter Zeile soll eine WENN-Bedingung in eine Excel-Zelle geschrieben werden. Führe ich den Code aus bringt mir Excel den Fehler 1004 Objekt und Anwendungsorientierter Fehler. Ich bin mit meinem Latein am Ende die Formel funktioniert an sich aber Excel läßt nicht zu, warum auch immer, das die Formel in eine Zelle geschrieben wird . Ich habe vorsichtshalber mal vor das = Zeichen ein anderes Zeichen gesetzt und den Code dann ausgeführt, dann wird der "nun Text" problemlos in die Zelle geschrieben. Nehme ich dann in Excel das erste Zeichen wieder raus funktioniert die Formel auch. Ich vermute das dass Problem an dem Wörtchen WENN liegt warum auch immer, sobald Excel erkennt dass die Formel eine WENN Bedingung hat kommt der Fehler. Hatte schon mal jemand so Problem oder weiss eine Lösung. Danke im voraus
MfG
Max