SUMMEWENNS sehr langsam

cH_rI_sI · 2017-08-07T09:01:07+00:00

Guten Morgen! Ich verwende eine SUMMEWENNS-Formel welche ich über ca. 85.000 Zeilen anwende - die Berechnung läuft ca. 20 min. - gibt es hier eventuell eine schnellere Alternative? Matrixformel? Bitte um Eure Vorschläge - Danke! Lg, Chrisi

Hi
mit Formeln wird's da etwas aufwendig bei dieser Datenmenge.
für eine schnelle Berechnung per Formel müsste man bei dieser Datenmenge so vorgehen:
in der Datenquelle:
1. fasse in einer zusätzlichen Spalte alle benötigten Kriterien zu einem Gesamttext zusammen (mit & verketten) und füge als letzen Buchstaben noch ein "x" hinzu (ist egal was, aber kein "a")
2. sortiere die Datenquelle nach dieser Hilfsspalte aufsteigend
in der Zieltabelle
1. fasse in einer Hilfsspalte die benötigten Kriterien zu einem Gesamttext zusammen, gleiche Reihenfolge und gleiches Trennzeichen wie in der Datenquelle verwenden.
hier ohne zusätzliches Zeichen am ende
2. ermittle die erste Zeile in der Quelle mit der Formel
=Vergleich(Gesamttext & "a"; Hilfsspalte in Quelle; 1)+1
3. ermittle die letzte Zeile in der Quelle mit dieser Formel:
=Vergleich(Gesamttext & "z"; Hilfsspalte in Quelle; 1)
4. Bilde jetzt die gewünschte Summe über die Index-Funktion:
=Summe(Index(WerteSpalte_Quelle;ersteZeile):Index(WerteSpalte_Quelle_letzteZeile))
Wenn es in der Zieldatei mehrere Zeilen mit den gleichen Kriteren gibt, kannst du auch die Zieltabelle nach dem Gesamttext sortieren und die Berechnung dann nur in der ersten Zeile ausführen (Wenn Gesamttext Gesamttext Zeile drüber) und ansonsten einfach den Werte aus der Zeile drüber übernehmen.
Wenn du die Listen wieder in eine andere Reihenfolge zurücksortieren musst, musst du die Formeln kopieren und als Wert einfügen.
Gruß Daniel

Hey, ich mag mich täuschen, aber ein ganz klassischer copy paste bug....
so sollte es funktionieren:

Sub Vergleichen()
Anf = Timer
Dim Res(), Rs()
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
PreM = Sheets("PPM Import Database - pre-month").Cells(4, 1).CurrentRegion
ActM = Sheets("PPM Import Database").Cells(4, 1).CurrentRegion
With CreateObject("Scripting.Dictionary")
For i = 2 To UBound(ActM)
iStr = Join(Array(ActM(i, 11), ActM(i, 4), ActM(i, 14), ActM(i, 12), ActM(i, 3)), "|" _
)
y = .Item(iStr)
Next i
'summieren
For i = 2 To UBound(PreM)
iStr = Join(Array(PreM(i, 11), PreM(i, 4), PreM(i, 14), PreM(i, 12), PreM(i, 3)), "|" _
)
If .exists(iStr) Then .Item(iStr) = .Item(iStr) + PreM(i, 7)
Next i
'Ausgabe
Res = .items
ReDim Rs(UBound(ActM) + 3, 0)
For i = 0 To .Count - 1
Rs(i, 0) = Res(i)
Next i
Sheets("PPM Import Database").Cells(5, "Q").Resize(.Count) = Rs
End With
Debug.Print Timer - Anf
End Sub

Problem: In der Schleife des 'Summieren-Blocks wurde das falsche (gleiche) Array angesprochen....
Daher die merkwürdig Sortierung :-)
VG,Ch.

Forumthread: SUMMEWENNS sehr langsam

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Schnelle Alternativen zur langsamen SUMMEWENNS-Berechnung in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)