Formulalocal Ergebnis= Fehler 1004
24.07.2015 15:47:47
P-Quest
Hallo,
in folgendem Code führt die erste Formel zum richtigen ergebnis, die zweite produziert Fehler 1004.
Händisch in die Zellen einkopiert, liefert aber auch die 2te Formel das richtige Ergebnis.
Sub Formeln()
'Formeln in EinAus kopieren
Dim wsZiel As Worksheet
Set wsZiel = Worksheets("EinAus")
wsZiel.Range("B168:b169").FormulaLocal = "=SVERWEIS([@id];Stammdaten;2;0)"
wsZiel.Range("I168:I169").FormulaLocal = "=WENN([@MengeEingang]"";SVERWEIS([@ID];Stammdaten; _
11;FALSCH)*[@MengeEingang];SVERWEIS([@ID];Stammdaten;11;FALSCH)*[@MengeAusgang])"
End Sub
Gruß,
Peter