Moin,
sorry wenn ich zu direkt bin, aber... bring mal Ordnung in deinen Saustall - dringenst!
Set objRange = Workbooks(StrFile).Worksheets(4).Range("A2:A6601") 'Cells(11, 6).Resize(zeilen - 11, 1) 'Bereichlänge anpassen....
'Formel einfügen
objRange1.FormulaLocal = Formel1 ''''''''''!!!!!!!!!!111Hier bricht der Code ab!!!!!!!!!!!!'''''''''''''''''''''''''''''''''''
Du initialisisierst nicht die Variable objRange1 ... eine zeile darüber fehlt sie nämlich. Da steht nur objRange. ;o)
Gruß
PS: Da du die englischen Formelausdrücke verwendest, solltest du Range.Formula nutzen, da nicht jedes BS mit englischer Ländereinstellung läuft. Das bedeutet, dein derzeitiger Formelausdruck würde bei einer anderen Ländereinstellung (deutsch, französisch, russisch, ...) derzeit so nicht ausgewertet (da er die Bezeichner nicht zuordnen kann).
|