autofill mit vbs

Hallo Excel-Community,
erst mal ein gesundes, schöpferisches Jahr 2007. Habe seit einiger Zeit nicht mehr mit VBA/VBS gearbeitet und stehe promt vor einem Problem!
Szenario:
Es müssen über VBS mehrere (ca.3000) Exceldateien aktualisiert werden (hängt mit der MwSt. zusammen).
Dafür ist es erforderlich eine Formel in eine Zelle einzutragen "D17", was auch über VBScript klappt. Weiterhin muß diese Formel dann in weitere Bereiche kopiert werden. ("D18" bis "D37" und "D47" bis "D64")Dies versuchte ich vergebens mit "AutoFill" zu tun. Alle Möglichkeiten, die Definition über Variablen oder direkt mit "Range" oder "Cells" anzugeben endeten in der gleichen Fehlermeldung "24 / 33 Bezeichner erwartet" o. "24 / 33 unbekannter Kompilierungs-fehler".
.selectedrange.autofill destination:='Range("D18:D37"'>
Die Err-Position 33 ist in dem Fall immer vor "Range" nach dem "=". Übrigens, im Excel selber, in einem Modul, funktioniert dieser Code bestens.
Kann man die AutoFill- Methode überhaupt über ein externes Programm(Script) steuern. Was müßte ich tun um das Script zum laufen zu bekommen. Ist es vielleicht besser mit einer Copy- Methode zu arbeiten und durch die Zeilen zu iterieren.
Für etwas Hilfe und einen eventuellen Code-Snippet wäre ich sehr dankbar.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
leider kenne ich mich mit VBS nicht aus.
hört sich aber so an als wäre da ein Bug drin, den man irgendiwe umschiffen muß.
d.h. du könntest mal die verschiedenen kopiermethoden ausprobieren:
range("D17").copy
range("D47:D67").pastespecial xlpasteformulas
range("D17").copy
range("D47:D67").select
activesheet.paste
ggf. könnte es auch sein, daß es erforderlich ist, immer den ganzen Objektpfad mit anzugeben, also Workbook.Sheet.Range
noch ne möglichkeit wäre, um die Formel in nichtangrenzende Zellbereiche zu kopieren, folgenden Code zu verwenden, dann sollten auch die Bezüge stimmen:
range("D46:D66").formulaR1C1 = range("D17").formulaR1C1
noch einfacher wärs natürlich, wenn dein gernerierter Formeltext den du in D17 reinschreibst, bereits in der R1C1-Schreibweise vorliegt, dann kannst du ihn auch direkt in alle betroffenen Zellen reinschreiben.
oder du schreibts das ganze so um, daß es innerhalb von Excel funktioniert, dh. du erstelltst eine Exceldatei, die in einer Liste alle umzuwandelnden Dateien enthält und die nacheinander die Dateien öffnet und die Änderungen durchführt. Denn innerhalb von Excel funktionierts ja.
noch ne Mehtode wäre unter umständen möglich, da es sich ja um eine Änderung der Mehrwertsteuer handelt, müsste duch eigentlich nur die 0,16 in der Formel durch 0,19 ersetzt werden, das könnte dann auch einfach mit REPLACE gehen.
Dabei musst du allerding aufpassen, ob die zu ersetzenden Textschnipsel nicht zufälligerweise noch in anderen Abschnitten der Formel vorkommen können, wo ein Ersetzen unerwünscht wäre.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread