Autofill (autofüllen) als FOR Schleife..
23.06.2004 10:26:59
peristeri
mir glüht schon wieder die "Birne" und nichts gscheites kommt raus...
Hilfe...., kann mir jemand einen Tipp geben?
ich möchte wegen Arbeitsspeicherproblem folgendes in eine FOR-Schleife umwandeln:
---Grosser Bereich wird markiert mit Formeln
---Diese Zeile im Tabellenblatt wird zeilenweise nach unten kopiert mit AUTOFILL;auf mehreren Schritten(7000 Mal)
Set rng=Selection 'ein grosser Bereich wird markiert, z.B.Range("A6:AO7007")
dim rng as object
dim r as integer
dim c as integer
c=rng.Columns.Count
r=rng.Rows.Count
'**********JETZT KOMMT DIE BERÜCHTIGTE ZEILE!!!!!*************
Range(rng.cells(1,2),rng,Cells(1,c))_
.Autofill Destination:=Range(rng.Cells(1,2),rng.Cells(r+1,c)), Type:=xlFillDefault
******
so klappts nicht:
For r=6 to 7007
Range(rng.cells(r,2),rng.Cells(r,41))_
.Autofill Destination:=Range(rng.Cells(r+1,2),rng.cells(r+1,41)), Type:=xlFillDefault
next r
***Laufzeitfehler 1004:"Die Autofillmethode des Range- Objectes konnte nicht
ausgefüllt werden" :-((
Freu mich riessssssssig über jede Idee...
peristeri