formula local

Question

Hallo,

ich wollte eine Excelformel in einen Code einbauen mit fomulalocal mache dabei aber etwas falsch. Kann mir jemand sagen, wie ich Syntax für diese Formel aussehen müsste, die im Excel sonst funktioniert:

Excel:
=WENNFEHLER(WENN($L2=1;30;WENN($L2=2;15;WENN($L2=3;10;WENN($L2=4;8;WENN($L2=5;7;"")))));"")


Code: ????
Cells(k, 14).FormulaLocal = "=WENNFEHLER(WENN(cells(k,12)=1;30;WENN(cells(k,12)=2;15;WENN(cells(k,12)=3;10;WENN(cells(k,12)=4;8;WENN(cells(k,12)=5;7;"")))));"")"

Danke und Gruß Andreas

Answer 1

Hallo Andreas,

nicht Cells sonder z.b. A3 oder " & cells(k,12).address & "

Gruß Hajo

Answer 2

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.

Answer 3

Option Explicit

Sub Formel()
Dim K As Long
K = 12
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;"""")))));"""")"
End Sub

Gruß Hajo

Answer 4

Vielen Dank Hajo,

ich habe jetzt auch dank deiner Hilfe eine funktionierenden Code mit dem Spaltenbuchstaben hingekriegt:

Cells(k, 14).FormulaLocal = "=Wenn(L" & k & "=1;30;Wenn(L" & k & "=2;15;Wenn(L" & k & "=3;10;Wenn(L" & k & "=4;8;Wenn(L" & k & "=5;7;"""")))))"

Vielen Dank und Gruß
Andreas