Office: Beschleunigen von VBA Excel Schleife

Hallo zusammen, ich überprüfe mit folgender Schleife eine Matrix von ca. 49000 Zellen. Dies nimmt entsprechend Zeit in Anspruch und ich bin auf der Suche ob es hier einen schnelleren Weg gibt.
Code:

 

mal den Code richtig dargestellt und paar kleine Korrekturen, nicht Zeit.
Code:

 

Sorry, hatte nicht gesehen das der Code so schlecht angezeigt wurde.

 

Hat keiner einen Ratschlag für mich, oder ist die Lösung schon das non plus Ultra?

Viele Grüße

 

Moin NoName,

ich würde den gesamten auszuwertenden Bereich in ein Array packen und dann in der Tabelle die Änderungen vornehmen. Sollte schneller gehen.

Kleiner Tipp: Kopiere deinen Code vor dem posten in einen (echten) Editor und von dort eine Kopie in das Board, dann klappt das auch.

 

Hallo,

versuche es einmal so: (ungetestet, da keine Testdatei dabei war)
Code:

 

Hallo Mc Santa,

danke für deine Datei. Diese ist leider genauso schnell wie meine und benötigt ca. 15 Sekunden.

Hallo GMG-CC,

wie würde so ein Code mit Array ausschauen?

P.S. Mein Name ist Andreas:-)

Viele Grüße

 

Mein Code ist auf diese Array-Variante umgeschrieben.

Mich wundert deshalb ein wenig, dass du da die gleiche Laufzeit bekommst. Kannst du mal einen kleinen Teil deine Tabelle hochladen? Dann kann ich mir das mal ansehen und schauen, wo man Laufzeit einsparen kann.

VG

Edit: Im Vergleich 65000 Zeilen und 8 Spalten braucht dein Code 27 Sekunden und meiner 1,3 Sekunden. Ich vermute daher, dass du den Code vielleicht nur teilweise ersetzt hast, oder sonst etwas beim Übertragen schief gegangen ist. Mit einer Datei von dir sehen wir mehr *Smilie

 

Hallo Andreas,

kannst du eine kleine Musterdatei mit bis zu maximal 100 Zeilen und natürlich Dummy-Daten anfertigen? Dann sollte es kein Problem sein, den passenden Code zu erstellen.

Der Nachbau eines Tabellenblattes ist einfach nur unproduktiv und die Zeit fehlt dann zum testen, zumal meist nicht alle relevanten Faktoren mit integriert werden können.

ps: Mein Vorname steht übrigens im Fußbereich jedes Beitrages *wink.gif*

 

Hallo Günther,

stimmt dein Name steht ja wirklich in der Fußzeile. *Smilie

Ich habe eine Datei mit angehangen. Hoffe diese ist im richtigen Format. Könntest du dann auch den Code etwas erläutern, da ich ja dies verstehen und anwenden möchte und nicht ständig hier im Forum den Leuten die Nerven rauben möchte.

Viele Grüße

Andreas

 

Hallo,

also ich habe den Code aus #6 kopiert und ausgeführt.
Dein Code kommt auf eine Laufzeit von 1,80 Sekunden. Mein Code braucht hingegen 0,06 Sekunden.
Bei großen Datenmengen sollte es ähnlich sein, kann ich aber gleich auch testen.

Kommst du auf andere Ergebnisse?

VG

 

Hallo Andreas,

da du mich angesprochen hast, eine globale Erklärung zu Code von Mc Santa, welcher prinzipiell genau so aufgebaut ist, wie ich es gemacht hätte:

Der komplette Datenbereich wird von dem Tabellenblatt in einen speziellen Speicherbereich kopiert, indem ein (VBA-) Array mit den Daten gefüllt wird. Solch ein Array ist im Prinzip auch nur eine Tabelle mit Zeilen und Spalten, nur der Zugriff ist erheblich schneller als auf eine Tabelle. Was du ja auch an den Zeiten siehst, die Mc Santa gerade gepostet hat.

Einzelne Zeilen sollte Mc Santa als Ersteller selbst kommentieren, außer er bittet mich darum ... *wink.gif*

 

Hallo Günther,

falls du da noch weitere Anmerkungen hast, dann nur zu *Smilie

@Pippsen:
Der Array lässt sich genauso ansprechen, wie die Zellen der Tabelle, dadurch ändert sich der Code nicht wirklich. Man muss nur darauf achten, ob man den Bereich ab Zelle A1 einliest, oder nicht, dadurch verschieben sich die Zeilen und Spalten.

VG

 

\@ Mc Santa:
Und als Ergänzung ... GANZ wichtig: Ist das Array Nullbasiert oder beginnt die Zählung mit 1?

@ Andreas: Frage ruhig, was du nicht verstanden hast. Du weißt vielleicht noch den Reim aus einer Kindersendung (Sesamstraße): "Wieso, weshalb, warum? Wer nicht fragt, bleibt dumm." Nur abschreiben und nicht begreifen (durch nachfragen) wird dich nämlich nie zu einem "mündigen" Excel-User machen.

 

Wenn das Array über einen Zellbereich erstellt wird, fängt es in der Zählung bei 1 an.

Beispiel:
Code:

ar(1,1) ist jetzt der Inhalt aus der Zelle C4 und ar(2,2) ist der Inhalt aus Zelle D5 usw..

VG