Office: (Office 2013) Excel Formel in VBA

Hallo zusammen, ich bin neu hier und würde dringend Hilfe benötigen. Ich ändere gerade ein Worksheet, wo ich von meinem Vorgänger die Datei übernommen habe. Da ich nicht viel Erfahrung in VBA habe, wurde von mir die Formel in der Zelle geändert und da funktioniert sie auch. In VBA wird die geänderte Formel nicht übernommen und ich habe keine Ahnung, wie ich die in VBA schreiben soll. Die Codierung dort von der alten Formel kann ich nicht entschlüsseln.

Nachstehend meine Formel:
=WENN(H9<>"Keines";WENN(G9<5;0;WENN(G9>=5;WENN(G9<=8;X9;WENN(G9<=12;Y9;WENN(G9>12;Z9)));"")))

Die alte Formel:
=WENN(H10 <> "Keines";WENN(G10<5;0;WENN(G10>=5;WENN(G10<=8;G10/21*49,3;49,3)));"")

die so in VBA steht
If ActiveCell.FormulaLocal <> "=WENN(H" & Target.Row & " <> ""Keines"";WENN(G" & Target.Row & "<5;0;WENN(G" & Target.Row & ">=5;WENN(G" & Target.Row & "<=8;G" & Target.Row & "/21*49,3;49,3)));"""")" Then
ActiveSheet.Unprotect pwd
ActiveCell.FormulaLocal = "=WENN(H" & Target.Row & " <> ""Keines"";WENN(G" & Target.Row & "<5;0;WENN(G" & Target.Row & ">=5;WENN(G" & Target.Row & "<=8;G" & Target.Row & "/21*49,3;49,3)));"""")"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=pwd
End If

Ich komme einfach nicht weiter, und möchte um hier um Hilfe bitten, um VBA anzupassen. Jedesmal beim Öffnen wird natürlich die alte VBA Formel übernommen.

Danke und freundliche Grüße,
Wolf

 

Hi Wolf,

versuche es mal so:

Code:

"=WENN(H" & Target.Row & "<>""Keines"";WENN(G" & Target.Row & "<5;0;WENN(G" & Target.Row & ">=5;WENN(G" & Target.Row & "<=8;X" & Target.Row & ";WENN(G" & Target.Row & "<=12;Y" & Target.Row & ";WENN(G" & Target.Row & ">12;Z" & Target.Row & ")));"""")))"

Bis später,
Karin

 

Hi Karin,

das hat toll funktioniert. Ich danke Dir wirklich vielmals!

Beste Grüße,
Wolf