Office: Formeln mehrerer Zellen nach unten ziehen, kopieren, autovervollständigen

Hallo,

ich komme mal gleich zur Sache - wir haben ja alle keine Zeit ;-)

Ich scheitere gerade an einer, wie ich anfänglich dachte, relativ einfachen Sache:

In den Spalten A:U, stehen diverse Daten, welche per Do While Loop aus Dateien hochgeladen werden. In den Spalten Y:AI werden weitere Berechnungen zu der jeweiligen Zeile ausgeführt.
Wenn nun die neuen Daten in A:U eingefügt werden, soll also in Y:AI die bereits existierende Formel automatisch eingefügt werden. Am besten bis zum letzten Eintrag in A:U. Hier mein Versuch:

Workbooks(wbName).Worksheets("Input").Activate
Range("Y:AI").Select
Selection.AutoFill Destination:=Range("Y:AI" & LastRow2)

Funzt leider nicht... Freue mich wie immer über sachdienliche Hinweise :-)

liebe Grüße

Felix

 

Hat wirklich keiner eine Antwort? Ich hab es bis dato noch nicht selbst hinbekommen. Vor allem ist merkwürdig, dass der gleiche Code in einem anderen Makro von mir einwandfrei funktioniert...

LG

Felix

 

Moinsens!

Ich verlass mich ungern auf die .AutoFill Methode. Versuch mal in der Richtung:

Code:

range("y[B][COLOR=#ff0000]1[/COLOR][/B]:ai[B][COLOR=#ff0000]1[/COLOR][/B]").copy destination:=range("y[B][COLOR=#ff0000]2[/COLOR][/B]:ai" & lastrow2)

(Vorausgesetzt, daß Deine Formeln gleich in Zeile 1 stehen...)

Gruß, Michael