habe mit Makrorekorder ein Makro aufgezeichnet:
(ein Teil daraus)
Range("B10").Select
ActiveCell.FormulaR1C1 = _
"='C:\DatenFebruar 2003\[werte gl februar.xls]Februar'!R[-4]C4"
Range("C10").Select
ActiveCell.FormulaR1C1 = _
"='C:\DatenFebruar 2003\[werte gl februar.xls]Februar'!R[-4]C18"
Range("D10").Select
ActiveCell.FormulaR1C1 = _
"='C:\DatenFebruar 2003\[werte gl februar.xls]Februar'!R[-4]C32"
Range("E10").Select
ActiveCell.FormulaR1C1 = _
"='C:\DatenFebruar 2003\[werte gl februar.xls]Februar'!R[-4]C46"
Range("B10:E10").Select
Selection.AutoFill Destination:=Range("B10:E105"), Type:=xlFillDefault
Das Makro soll immer 2 Spalten weiterzählen
Die Spaltenwerte die eingefügt werden sollen durch das Makro sind z.B.
B10 zuerst steht SpalteB drin dannach SpalteD dann SpalteF usw.
C10 zuerst steht SpalteP drin dannach SpalteR dann SpalteT usw.
D10 zuerst steht SpalteAD drin dannach SpalteAF dann SpalteAH usw.
E10 zuerst steht SpalteAR drin dannach SpalteAT dann SpalteAV usw.
Leider macht das Makro nur denn 1.Durchlauf beim 2.Durchlauf mach er das selbe.
Es müßte aber bei jedem Durchlauf 2 Spalten höher zählen?
Ich denke es geht irgendwie aber ich weis nicht wie.
Danke für Tips!
Thomas