VBA Autofill -> Keine Rückmeldung

Hallo zusammen,
der VBA-Linkshänder wieder mal.
Ich habe eine große Datei. Fast 300 Spalten mit verschiedenen Berechnungen, bis zu 5000 Zeilen tief. Nimmt eine Menge Speicherplatz.
Habe ich "rationalisiert", indem nur die erste Zeile überbleibt und der Rest über VBA mit Autofill erzeugt wird. Dann Spaltenergebnis kopieren, Spalte wieder löschen.
Geht auch super. Platzersparnis über 80%, Formel trotzdem für Leute ohne VBA-Kenntnisse editierbar, alles schick.
Nur leider "friert Excel ein" und zeigt während der Prozedur "Keine Rückmeldung".
Die Userform, welche ich dank Werner's Hilfe benutze um ein großes "Bitte warten" Bild zu zeigen (und zu verhindern, dass man im Blatt rumtippen kann) wird unsichtbar (Blatt bleibt trotzdem geschützt). https://www.herber.de/cgi-bin/callthread.pl?index=1531199
Das ist der Code mit Autofill:


Worksheets("matrix").Range("A12:JQ12").AutoFill Destination:=Worksheets("matrix").Range("A12:JQ" _
& i)

Wenn ich es als Schleife schreibe, dann friert Excel nicht ein. Aber es dauert 100mal länger.


For R = 1 To 277 ' Col A to JQ
Worksheets("matrix").Range(Range(Cells(12, R), Cells(12, R)).Address).AutoFill Destination:= _
Worksheets("matrix").Range(Range(Cells(12, R), Cells(i, R)).Address)
Next R

Gibt es eine elegante Lösung, das "Einfrieren" zu verhindern?
Anmerkung: Worksheets("matrix").EnableCalculation = False
Danke und Gruß,
Rainer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

For R = 1 To 277 ' Col A to JQ With Worksheets("matrix") .Range(Range(Cells(12, R), Cells(12, R)).Address).AutoFill Destination:= _ .Range(Range(Cells(12, R), Cells(i, R)).Address) End With 'Info siehe Vba-Hilfe DoEvents Next R

Application.Calculation = xlCalculationManual Worksheets("matrix").Range("A12:JQ12").AutoFill _ Destination:=Worksheets("matrix").Range("A12:JQ" & i) Application.Calculation = xlCalculationAutomatic

For R = 1 To 280 Step 20 ' Col A to JQ Worksheets("matrix").Range(Range(Cells(12, R), Cells(12, R + 19)).Address).AutoFill _ Destination:= _ Worksheets("matrix").Range(Range(Cells(12, R), Cells(i, R + 19)).Address) Next R

' Variante Copy und Loop Step 20 For R = 1 To 280 Step 20 ' Col A to JT Worksheets("matrix").Range(Range(Cells(12, R), Cells(12, R + 19)).Address).Copy _ Worksheets("matrix").Range(Range(Cells(12, R), Cells(i, R + 19)).Address) Next R

Hallo Werner,
das war einer meiner früheren Versuche, so bin ich dann zu dem Entschluss gekommen es als Schleife zu machen.
Es ist mir eigentlich nur wichtig, dass "Keine Rückmeldung" nicht passiert, weil dann immer clevere Nutzer (DAU) clevere Sachen (Ironie) machen, nur weil sie glauben das die Berechnung Excel / Windows / die Gesellschaftsordnung / die Gravitationskonstanten des Universums zum Absturz gebracht hat.
Außerdem ist die Zeilenanzahl frei, in Abhängigkeit der Eingabedaten. Üblicherweise nicht mehr als 5000 Zeilen, aber erst vor wenigen Minuten habe ich einen Datensatz mit Werten bis zu 12000 bekommen.
Alles doof, außerdem soll es auch auf schwächeren Computern laufen und nicht dem DAU suggerieren, dass es sich aufhängt hat.
Mit der Step 20 geht es flott genug, das reicht mir erstmal. Nach der Berechnung muss das Makro noch ein paar Diagramme erzeugen, ich versuche erstmal da an Geschwindigkeit zu gewinnen, das ist auch noch übel langsam.
Da kommen bestimmt noch neue Fragen auf!
Danke und Gruß,
Rainer

Beliebteste Forumthreads (12 Monate)

VBA Autofill -> Keine Rückmeldung

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Autofill -> Keine Rückmeldung

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread