Laufzeitfehler "1004": ...
13.12.2022 16:25:42
Lars
mein VBA-Code lief eigentlich reibungslos und hat das was er tun sollte erledigt. Allerdings habe ich nun manuell Befehle / Zeilen nach dem selben und vorherigen Schema hinzugefügt und bekomme nun immer den Laufzeitfehler "1004": Anwendungs- oder objektdefinierter Fehler.
Der Code schaut hierbei wie folgt aus:
Sheets("Daten").Activate
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("SAP_Grundlage").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Daten").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Produkt"
Range("O3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-3]=""Albanien"",""Albanien komplett"",IF(RC[-3]=""Senegal"",""Senegal komplett"",IF(RC[-3]=""Irland"",""Irland komplett"",IF(RC[-3]=""China"",""China komplett"",IF(RC[-3]=""Marokko"",""Marokko komplett"",IF(RC[-3]=""Südafrika"",""Südafrika komplett"",IF(RC[-3]=""Montenegro"",""Montenegro komplett"",IF(RC[-3]=""USA"",""USA komplett"",IF(RC[-3]=""Saudi-Arabien"",""Saudi-Arabien komplett"",IF(RC[-3]=""Großbritannien"",""Großtbritannien kompl" & _
"ett"",IF(RC[-3]=""Mauritius"",""Mauritius komplett"",IF(RC[-3]=""Niger"",""Niger komplett"",IF(RC[-3]=""Mali"",""Mali komplett"",IF(RC[-3]=""Nordmadzedonien"",""Nordmadzedonien komplett"",IF(RC[-3]=""Vietnam"",""Vietnam komplett"",IF(RC[-3]=""Japan"",""Japan komplett"",IF(RC[-3]=""Benin"",""Benin komplett"",IF(RC[-3]=""Ägypten"",""Ägypten komplett"",IF(RC[-3]=""Togo" & _
""",""Togo komplett"",IF(RC[-3]=""Elfenbeinküste"",""Elfenbeinküste komplett"",IF(RC[-3]=""Indien"",""Indien komplett"",IF(RC[-3]=""Schweden"",TEXT(LEFT(RC[-4],LEN(RC[-4])-4),""00""),IF(RC[-3]=""Rumänien"",TEXT(LEFT(RC[-4],LEN(RC[-4])-4),""00""),IF(RC[-3]=""Tschechische Republik"",TEXT(LEFT(RC[-4],LEN(RC[-4])-4),""00""),IF(RC[-3]=""Niederlande"",TEXT(LEFT(RC[-4],LEN(" & _
"RC[-4])-5),""00""),IF(RC[-3]=""Polen"",TEXT(LEFT(RC[-4],LEN(RC[-4])-4),""00""),IF(RC[-3]=""Slowakei"",TEXT(LEFT(RC[-4],LEN(RC[-4])-4),""00""),TEXT(LEFT(RC[-4],LEN(RC[-4])-3),""00""))))))))))))))))))))))))))))" & _
Range("O3").Select
Selection.AutoFill Destination:=Range("O3:O99999")
Range("O3:O99999").Select
ActiveWindow.SmallScroll Down:=0
Range("O3").Select
Range(Selection, Selection.End(xlDown)).Select
Range("P3").Select
ActiveCell.FormulaR1C1 = "=IFERROR(RC[-2]/RC[-12],0)"
Range("P3").Select
Selection.AutoFill Destination:=Range("P3:P99999")
Range("P3:P99999").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0.00"
Range("Q3").Select
ActiveCell.FormulaR1C1 = "=INT(RC[-1])"
Range("Q3").Select
Selection.AutoFill Destination:=Range("Q3:Q99999")
Range("Q3:Q99999").Select
Range("R3").Select
ActiveCell.FormulaR1C1 = "=MOD(RC[-2],1)"
Range("R3").Select
Selection.AutoFill Destination:=Range("R3:R99999")
Range("R3:R99999").Select
Range("S3").Select
Range("S3").Select
Windows("Kopie von Absatzanaylse Neu - Kopie Lars 13.12.2022 (2).xlsm").Activate
Dieser Teil funktioniert. Danach ist folgendes im Editor vermerkt:
ActiveCell.FormulaR1C1 = "=IF(RC[-7]=""Südafrika"",""3. Land"",IF(RC[-7]=""Albanien"",""3. Land"",IF(RC[-7]=""Großbritannien"",""3. Land"",IF(RC[-7]=""Marokko"",""3. Land"",IF(RC[-7]=""Mauritius"",""3. Land"",IF(RC[-7]=""Schweiz"",""3. Land"",IF(RC[-7]=""Serbien"",""3. Land"",IF(RC[-7]=""USA"",""3. Land"",IF(RC[-7]=""Montenegro"",""3. Land"",IF(RC[-7]=""Niger"",""3. Land"",IF(RC[-7]=""Saudi-" & _
"Arabien"",""3. Land"",IF(RC[-7]=""Mali"",""3. Land"",IF(RC[-7]=""Nordmazedonien"",""3. Land"",IF(RC[-7]=""Vietnam"",""3. Land"",IF(RC[-7]=""Japan"",""3. Land"",IF(RC[-7]=""Benin"",""3. Land"",IF(RC[-7]=""Ägypten"",""3. Land"",IF(RC[-7]=""Togo"",""3. Land"",IF(RC[-7]=""Elfenbeinküste"",""3. Land"",IF(RC[-7]=""Indien"",""3. Land"",IF(RC[-7]=""Norwegen"",""3. Land"",IF(RC[-7]=""Deutschland"",""Mitteleur" & _
"opa"",IF(RC[-7]=""Österreich"",""Mitteleuropa"",IF(RC[-7]=""Polen"",""Mitteleuropa"",IF(RC[-7]=""Slowakei"",""Mitteleuropa"",IF(RC[-7]=""Tschechische Republik"",""Mitteleuropa"",IF(RC[-7]=""Ungarn"",""Mitteleuropa"",IF(RC[-7]=""Dänemark"",""Nordeuropa"",IF(RC[-7]=""Finnland"",""Nordeuropa"",IF(RC[-7]=""Norwegen"",""Nordeuropa"",IF(RC[-7]=""Schweden"",""Nordeuropa""," & _
"IF(RC[-7]=""Estland"",""Osteuropa"",IF(RC[-7]=""Lettland"",""Osteuropa"",IF(RC[-7]=""Litauen"",""Osteuropa"",IF(RC[-7]=""Griechenland"",""Südeuropa"",IF(RC[-7]=""Italien"",""Südeuropa"",IF(RC[-7]=""Spanien"",""Südeuropa"",IF(RC[-7]=""Kroatien"",""Südosteuropa"",IF(RC[-7]=""Rumänien"",""Südosteuropa"",IF(RC[-7]=""Slowenien"",""Südosteuropa"",IF(RC[-7]=""Belgien"",""W" & _
"esteuropa"",IF(RC[-7]=""Frankreich"",""Westeuropa"",IF(RC[-7]=""Irland"",""Westeuropa"",IF(RC[-7]=""Luxemburg"",""Westeuropa"",IF(RC[-7]=""Niederlande"",""Westeuropa"",IF(RC[-7]=""Türkei"",""3. Land"",IF(RC[-7]=""Senegal"",""3. Land"",IF(RC[-7]=""Lichtenstein"",""Westeuropa"",IF(RC[-7]=""Bulgarien"",""Osteuropa"",IF(RC[-7]=""Kosovo"",""3. Land"",""""))))))))))))))" & _
")))))))))))))))))))))))))))))))))))" & _
""
Dieser Teil funktionierte bis die Zeilen
IF(RC[-7]=""Kosovo"",""3. Land"",""""
&
IF(RC[-7]=""Norwegen"",""3. Land""
hinzugefügt wurden. Allerdings ist die Liste nie vollständig fertig und muss ab und an von mir händisch erweitert werden. Woran könnte der Fehler liegen und wie ist dieser in Zukunft zu finden und gleichzeitig zu beheben?
Danke euch vorab und viele Grüße,
Lars