Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

AutoFil

Forumthread: AutoFil

AutoFil
Zohdy
Hallo
nach langer Zeit möchte ich mal wieder um Eure Hilfe bitten.
In einem meiner Makros befindet sich eine Autofil Anweisung.
Range("A6:Y6").Select
Selection.AutoFill Destination:=Range("A6:Y5000")
End Sub
Bisher dachte ich, das würde immer ohne Probleme gehen.
Nun hatte ich jedoch eine Datei mit mehr als 5000 Zeilen und siehe da es gab folgenden Fehler:
Run-time error 1004
Selection too large
Habe dann mit herum probieren heraus gefunden, dass ich noch exakt 2054 Zeilen mit der Anweisung füllen lassen kann.
Nachdem ich nun aber weitere Pivot Tabellen, Formeln und Blätter meiner Exceltabelle hinzugefügt habe ist die mögliche Anzahl der Zeilen wiederum gefallen und zwar auf 1644.
Es geht auch nicht mit einem Copy Befehl oder manuell mit Doppelklick oder Cut and Paste.
Hat jemand dazu eine Idee?
Gruß
Zohdy
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: AutoFil
04.11.2009 10:55:59
Luschi
Hallo
hier eine Vba-Lösung in 100er Schritten:

Sub autoFill_In_Raten()
Dim sourceRange As Range, fillRange As Range
Dim i As Integer, j As Integer, k As Integer
For i = 0 To 4000 Step 1000
If i = 0 Then
j = 6: k = 1000
Else
j = i: k = i + 1000
End If
Set sourceRange = Worksheets("Tabelle1").Range("A" & j & ":Y" & j)
Set fillRange = Worksheets("Tabelle1").Range("A" & j & ":Y" & k)
sourceRange.AutoFill Destination:=fillRange
Next i
Set sourceRange = Nothing
Set fillRange = Nothing
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige