Office: (Office 2010) Problem beim ausführen des Makros

Hi zusammen,

ich habe folgendes Problem. Ich möchte per VBA folgende Formel in Zelle R2 eintragen lassen.

=WENN(ODER(M2=1;M2=2);"1180x780x1100";WENN(G2=190;"190x140x100";WENN(G2="290K";"290x190x100";WENN(G2="290G";"290x190x150";WENN(G2=305;"305x225x124";WENN(G2="390M";"390x290x100";WENN(G2="390G";"390x290x200";WENN(G2=394;"394x194x220";WENN(G2="530K";"530x190x115";WENN(G2="530M";"530x190x230";WENN(G2="530G";"530x380x230";WENN(G2=600;"600x400x500";WENN(G2=710;"710x300x195";WENN(G2=800;"800x600x500";WENN(G2=885;"885x250x394";WENN(G2=1180;"1180x780x1100";WENN(G2="BAN24";"Banane";WENN(G2="BAN20";"Banane";WENN(G2="BAN16";"Banane";WENN(UND(G2="KAR";F2>1);"Original";WENN(G2="190x140x100";G2;WENN(G2="290x190x100";G2;WENN(G2="290x190x150";G2;WENN(G2="305x225x124";G2;WENN(G2="390x290x100";G2;WENN(G2="390x290x200";G2;WENN(G2="394x194x220";G2;WENN(G2="530x190x115";G2;WENN(G2="530x190x230";G2;WENN(G2="530x380x230";G2;WENN(G2="600x400x500";G2;WENN(G2="710x300x195";G2;WENN(G2="800x600x500";G2;WENN(G2="885x250x394";G2;WENN(G2="1180x780x1100";G2;WENN(G2="Banane";G2;""))))))))))))))))))))))))))))))))))))

ich habe die alte funktionierende Formel erweitert und es funktioniert nicht mit vba in Zelle R2 die Formel einzufügen.

Hier mal das funktionierende Makro mit der alten Formel:

Code:

Sub VerpackungsartVervollständigen()
'
' Makro2 Makro
'
Dim letzteZeile As Long
 
    letzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
     
    Range("R2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=1,""1180x780x1100"",IF(RC[-5]=2,""1180x780x1100"",IF(RC[-11]=""190"",""190x140x100"",IF(RC[-11]=""290K"",""290x190x100"",IF(RC[-11]=""290G"",""290x190x150"",IF(RC[-11]=""305"",""305x225x124"",IF(RC[-11]=""390M"",""390x290x100"",IF(RC[-11]=""390G"",""390x290x200"",IF(RC[-11]=""394"",""394x194x220"",IF(RC[-11]=""530K"",""530x190x115"",IF(RC[-11]=""530M"",""" & _
      "530x190x230"",IF(RC[-11]=""530G"",""530x380x230"",IF(RC[-11]=""600"",""600x400x500"",IF(RC[-11]=""710"",""710x300x195"",IF(RC[-11]=""800"",""800x600x500"",IF(RC[-11]=""885"",""885x250x394"",IF(RC[-11]=""1180"",""1180x780x1100"",IF(RC[-11]=""BAN24"",""Banane"",IF(RC[-11]=""BAN20"",""Banane"",IF(RC[-11]=""BAN16"",""Banane"",IF(RC[-11]=""KAR"",""Original"",""""))))))))" & _
        ")))))))))))))" & _
        ""
    Range("R2").AutoFill Destination:=Range("R2:R" & letzteZeile), Type:=xlFillDefault
    Range("R2:R" & letzteZeile).Copy
    Range("G2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("R2:R" & letzteZeile).Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

Jetzt möchte ich nur die Stelle mit der Formel (ActivCell.FormulaR1C1 = ...) ändern.

Formel Neu:

Code:

    
ActiveCell.FormulaR1C1 = _
    "=IF(OR(RC[-5]=1,RC[-5]=2),""1180x780x1100"",IF(RC[-11]=190,""190x140x100"",IF(RC[-11]=""290K"",""290x190x100"",IF(RC[-11]=""290G"",""290x190x150"",IF(RC[-11]=305,""305x225x124"",IF(RC[-11]=""390M"",""390x290x100"",IF(RC[-11]=""390G"",""390x290x200"",IF(RC[-11]=394,""394x194x220"",IF(RC[-11]=""530K"",""530x190x115"",IF(RC[-11]=""530M"",""530x190x230"",IF(RC[-11]=""53" & _
    "30x380x230"",IF(RC[-11]=600,""600x400x500"",IF(RC[-11]=710,""710x300x195"",IF(RC[-11]=800,""800x600x500"",IF(RC[-11]=885,""885x250x394"",IF(RC[-11]=1180,""1180x780x1100"",IF(RC[-11]=""BAN24"",""Banane"",IF(RC[-11]=""BAN20"",""Banane"",IF(RC[-11]=""BAN16"",""Banane"",IF(AND(RC[-11]=""KAR"",RC[-12]>1),""Original"",IF(RC[-11]=""190x140x100"",RC[-11],IF(RC[-11]=""290x19" & _
    "C[-11],IF(RC[-11]=""290x190x150"",RC[-11],IF(RC[-11]=""305x225x124"",RC[-11],IF(RC[-11]=""390x290x100"",RC[-11],IF(RC[-11]=""390x290x200"",RC[-11],IF(RC[-11]=""394x194x220"",RC[-11],IF(RC[-11]=""530x190x115"",RC[-11],IF(RC[-11]=""530x190x230"",RC[-11],IF(RC[-11]=""530x380x230"",RC[-11],IF(RC[-11]=""600x400x500"",RC[-11],IF(RC[-11]=""710x300x195"",RC[-11],IF(RC[-11]=" & _
    "x500"",RC[-11],IF(RC[-11]=""885x250x394"",RC[-11],IF(RC[-11]=""1180x780x1100"",RC[-11],IF(RC[-11]=""Banane"",RC[-11],""""))))))))))))))))))))))))))))))))))))"

ich weiß echt nicht, wieso es nicht funktioniert.

Ich habe es auch schon mit FormulaLocal probiert aber das funktioniert auch nicht.

Es kommt die Fehlermeldung





Hoffe ihr könnt erkennen was falsch läuft und dieses Problem lösen.

Hier die Datei mit Makro, welches nicht funktioniert.


Vielen vielen Dank schonmal im Voraus

 

Hallo,

Datein bitte hier im Forum posten!

 

Hi,

wenn ich das richtig sehe: benutze eine Hilfstabelle, in der du die Vergleiche einträgst, welche in G2 verglichen werden sollen - dann kannst du mittels SVERWEIS arbeiten und die Formel wird um ein ganzes Stück kürzer

=WENN(ODER(M2=1;M2=2);"1180x780x1100";SVERWEIS(G2;A1:B50;2;0))

A1:B50 ist der Bereich der Hilfstabelle (Beispiel).

Dann kannst du mit der folgenden Codezeile die Formel in R2 eintragen:

Code:

Range("R2").FormulaLocal = "=WENN(ODER(M2=1;M2=2);""1180x780x1100"";SVERWEIS(G2;A1:B50;2;0))"

Ich frage mich aber, weshalb du die Formel jedesmal neu eintragen willst - wenn sie einmal drin steht muss sie doch nicht nochmal eingetragen werden, da reicht dann, die Formel bis zur letzten belegten Zelle auszufüllen. Am Einfachsten ist es übrigens, eine formatierte (intelligente) Tabelle zu benutzen, denn dort werden die Formeln automatisch weitergeschrieben falls eine neue Zeile hinzukommt.

Bis später,
Karin