Hallo,
habe das jetzt wie oben beschrieben ersetzt:
Cells(k, 14).FormulaLocal = "=WENNFEHLER(WENN(" & Cells(k, 12).Address & "=1;30;WENN(" & Cells(k, 12).Address & "=2;15;WENN(" & Cells(k, 12).Address & "=3;10;WENN(" & Cells(k, 12).Address & "=4;8;WENN(" & Cells(k, 12).Address & "=5;7;"")))));"")"
klappt aber noch nicht...????
Kannst du noch mal helfen? Danke.