Durchlaufgeschwindigkeit erhöhen

Liebe Forumsgemeinde,
bereits zweimal habt Ihr mir bei einem VBA Problem helfen können.
Nach gut drei Jahren, in denen das Programm (Leistungserfassung + Auswertung) auch dank eurer Hilfe einwandrei läuft, wird die Menge an Daten zum Problem.
Kurz zum grundsätzlichen Aufbau der Leistungserfassung sowie Auswertung:
Kleines Unternehmen, in denen jeder der 15 Mitarbeiter seine Leistung über eine Eingabemaske erfasst. Zum Monatsabschluss wird der jeweilige Monat (in der Regel von mir) ausgewertet. Auf Grund der Menge an Daten (ca. 5000 Vorgänge erfasst) dauert die Auswertung mittlerweile extrem lange (bis zu 15 Minuten). Die typischen Bausteine zur Geschindigkeitserhöhung (Application.ScreenUpdating = False; Application.DisplayAlerts = False) sind bereits in den Code integriert.
Einer kurze Erklärung des Auswertungsvorgangs:
Durch einen Click auf den Button "Auswertung" auf dem Tabellenblatt "Leistungsmeldung" gelangt man auf eine Maske in der drei Optionen zur Auswertung dargestellt sind. Bisher wird dort eine Auswahl getroffen (bspw. Jahr: 2021; Monat: Januar) und mit einem Click auf den Button "Auswertung Mitarbeiter" wird mit einer Schleife die intelligente Tabelle anhand der ausgewählten Bedingungen nach Übereinstimmungen durchlaufen. Für jeden Mitarbeiter wird dabei ein neues Tabellenblatt erstellt, in dem die Leistungen der einzelnen Mitarbeiter erfasst werden. Aktuell durchläuft die Schleife ca. 5000 Zeilen.
Meine Idee war, dass durch die Auswahl (bspw. jahr: 2021, Monat: Januar) der Code nicht mehr den kompletten Datensatz durchläuft, sondern nur noch die Zeilen der intelligenten Tabelle, die die oben ausgewählten Bedingungen erfüllen um so die Geschindigkeit der Auswertung zu erhöhen. Bisher habe ich es nicht geschafft, dies in den Code zu übertragen. Vielleicht hat jemand von euch eine Idee, ob und wenn ja wie ich das im Code ausdrücken kann? Über Hilfe wäre ich sehr dankbar und bin grundsätzlich auch bereit einen Lösungsansatz für das Geschwindigkeitsproblem (bspw. über ein Array) zu vergüten. Im Anhang findet ihr die Excel Datei.
Vielen Dank im Voraus und beste Grüße aus Köln
https://www.herber.de/bbs/user/164127.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo #DEINNAME (von Excel geklaut :-) ),

Ohjehh! Ohjehh! Ohjehh! :-)

Hab deine Datei runtergeladen, geöffnet, gestartet, 2021 + Januar ausgewählt unnnd auf den Button geklickt :-)
Bis fertig war, hat es so ungefähr 20 Sekunden gedauert :-)

Hmm, dachte ich mir, der Fragende schreibt was von Dauer = ca 15 Minuten oder so.
Na gut, dachte ich weiter, der Fragende lässt ja auch ca 5000 Durchgänge (=Datenzeilen???) abarbeiten - in der Bsp-Datei gibt es aber nur 1558 Datenzeilen (=Durchgänge???).

Okayyyy! Ich hab die vorhandenen Datenzeilen (1558) kopiert und so oft im Blatt "Leistungsmeldung" immer wieder am Ende eingefügt, bis hier bei mir 12464 Zeilen belegt waren! :-)

Gespeichert - und noch mal alles gestartet, 2021 + jetzt mal Februar ausgewählt und auf den Button geklickt :-)
Jeeetzt hat alles - ca 4 MINUTEN - gedauert :-)

Ja, ich weiß, noch immer nicht 15 Minuten, obwohl Anzahl Zeilen fast 3x so viel wie bei dir = Grund: ich hab n ziemlich schnellen Computer, aber egal...das nur zur Erklärung.

Trotzdem wollt ich natürlich wie du wissen, WIESO dauert das so lange????

Rausgefunden hab ich das hier:

1. Code löscht zuerst alle Blätter, die nicht zu den "Stammblättern" gehören
2. Code sortiert in Blatt "Leistungsmeldung" zuerst nach Spalte Datum, dann nach Spalte Projekt-Name
3. Code liest Jahr + Monat aus Userform aus = 2021 + Februar
4. jetzt kommts!

a) Code erstellt neues Blatt für "Mitarbeiter1"
b) Code beginnt in Blatt "Leistungsmeldung" in Zeile 2, überprüft Jahr + Monat
c) wenn geprüfte Zellen (Jahr, Monat) NICHT mit in Userform ausgewähltem Jahr, Monat übereinstimmt, dann...
...wird Blatt für "Mitarbeiter1" wieder gelöscht!^^
...die nächste Zeile in Blatt "Leistungsmeldung" wird geprüft, und alles beginnt bei a)

In meiner Datei mit ca 12000 Zeilen wird also...
...Blatt "Mitarbeiter1" 1825 mal erstellt UND wieder gelöscht❗bis der Code endlich mal Mitarbeiter1 UND 2021 UND Februar das erste mal nebeneinander in der selben Zeile findet!!!!! :-)))))
...jetzt endlich werden auch mal die Leistungsdaten für Mitarbeiter1 im Blatt "Mitarbeiter1" eingetragen...YEAH! :-)
(wunder dich nich, wieso das Suchen 1825x dauert - in meiner Datei sind deine gezeigten Daten ja "nur kopiert und viele Male wieder eingefügt" - jeder Mitarbeiter wiederholt sich also viele male)

Nun denn - ich werde mein Glück an deiner Datei mal versuchen :-)
Ob ich was Schnelleres vom Ablauf finde, kann ich nicht versprechen, und ich weiß auch nicht, wie lange ich brauchen werde.

Aber all das ist ja nicht so schlimm, denn...

Du bist ja im geilsten Forum gelandet, das ich kenne!

hier gibt es so viel kompetentes Schwarmwissen - vielleicht ist ja ein anderer Helfer auch schon am Werk....und viel schneller fertig als ich....wir werden es sehn ;-)

Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Durchlaufgeschwindigkeit erhöhen

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread