Performanceoptimierung bei Sverweis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Bernd,
ich kann zwar deine Tabelle noch nicht richtig interpretieren, aber vielleicht mal ein Denkansatz zum Ausbauen.
Annahme: Deine Tabelle wächst täglich um einen Datensatz und die bereits bestehenden Datensätze ändern sich aber nicht mehr (sind per SVERWEIS mit der Ursprungstabelle verknüpft, aber diese Ursprungsdaten ändern sich nicht). Dein Performanceprobem ist nur die Menge der SVERWEISe durch einmaliges Herunterziehen um mehrere hundert Zeilen (="Vorratszeilen").
Durch ein Verkleinern der Menge der Vorratszeilen kannst du m.E. dein Problem heute lösen, aber in x-hundert Tagen hast du doch das gleiche Problem.
Prinzipiell könnte man beim Öffnen der Datei prüfen, ob die "Vorratszeilen" verbraucht sind und einen optischen Hinweis machen, dass "verbraucht" oder auch gleich automatisiert eine Zeile einfügen. Das Performanceproblem kommt dann auch, nur etwas besser.
Wenn die Altdaten (bis gestern) sich nicht mehr ändern, sollte man m.E. einfach per VBA eine Ereignis(Aktualisierungs)routine (bei Öffnung der Tabelle) erstellen, bei der die Ursprungsdaten fest (heißt einmal und ohne SVERWEIS) übernommen werden. Damit kommst du auch nach mehreren hundert Tagen nicht auf die Anzahl SVERWEISe.
Dazu müsstest du aber schreiben, welche Daten aus welchen Dateien in welche Zeilen und Spalten übernommen werden sollten.
Gruß
Harry

Private Sub Worksheet_Activate() Dim lngR As Long lngR = Range("A65536").End(xlUp).Row While (Date - 1 > Cells(lngR, 1)) Range("A" & lngR & ":D" & lngR).Select Selection.AutoFill Destination:=Range("A" & lngR & ":D" & lngR + 1), Type:=xlFillDefault lngR = Range("A65536").End(xlUp).Row Wend End Sub

Hallo Bernd,
sind die Probleme in deiner Mappe oder meiner (bzw. funktioniert meine Mappe bei dir korrekt)?
Wenn letzeres mit ja, dann
zu 1. Du musst im Editor für die Arbeitsmappe folgende Prozedur ausfüllen (genaue Stelle kannst du ja mit meiner Mappe überprüfen


Private Sub Workbook_Open()
Aktualisierung
End Sub

zu 2. Wenn in meiner Mappe "schnelle" Ausführung und in deiner langsam, kann es dann sein, dass deine Formeln (=Wertübernahmen) sehr langsam sind? Heißt teste deine Datei mit Datum von gestern (=Umwandlung aller alten Formeln) und danach Systemdatum wieder auf heute (=es wird nur eine weitere Formelzeile erstellt und dann auch nur eine umgewandelt) Letzteres müsste deutlich schneller ausgeführt werden.
zu 3. 2 Möglichkeiten
a) einfach innerhalb der Prozedur den Coe von Zeile "Sheets("Basis").Activate " bis zum letzten "End If" mehrfach (=für jedes benötigte Tabellenblatt) kopieren und für jede Einfügung die Tabellenblattnamen anpassen (Bsp. "Sheets("Basis2").Activate")
Vorteil: individuelle Anpassungen für jedes Tabellenblatt möglich wie z.B. Beginn der Liste oder Anzahl der Spalten
b) bei jeweils vollständig identischen Tabellenblättern kannst du den Blattnamen als Parameter übergeben. Dazu folgende Anpassungen des Originals
Name der Prozedur - Sub Aktualisierung(strMappe As String)
9. Zeile in Prozedur - Sheets(strMappe).Activate
Aufruf der Prozedur gemäß zu 1. -


Private Sub Workbook_Open()
Aktualisierung("Basis")
Aktualisierung("Basis2")
End Sub

Gruß
Harry

Beliebteste Forumthreads (12 Monate)

Performanceoptimierung bei Sverweis

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Performanceoptimierung bei Sverweis

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread