Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Matrixsummen per VBA berechnen

Matrixsummen per VBA berechnen
Werner
Hallo zusammen,
ich möchte in eine Exceltabelle eine große Menge Daten auswerten, die über Crystal Reports übertragen werden.
Die Datenschablone ist dabei immer gleich, die Datenmenge variiert..
Größe:
78 Spalten x 60.000 - 65536 Zeilen, je nach Auswertung.
Vorweg:
Da die Datenauswertetabelle immer gleich aussehen soll (siehe Beispiel), geht leider die Pivotauswertung hier nicht. So sind je nach Auswertungen nie alle Parameter vorhanden.
Auswertung

 BCDEFGHIJKLMNO
2ZP:Name xy            
3Titel:007123            
4AartVergabe            
5              
6BLTKST200020012002200320042005200620072008200920102011
7BundASt1            
8LandASt1            
9KreisASt1            
10DritteASt1            
11BundASt2            
12LandASt2            
13KreisASt2            
14DritteASt2            
15BundASt3            
16LandASt3            
17KreisASt3            
18DritteASt3            
19BundASt4            
20LandASt4            
21KreisASt4            
22DritteASt4            
23BundASt5            
24LandASt5            
25KreisASt5            
26DritteASt5            
27BundASt6            
28LandASt6            
29KreisASt6            
30DritteASt6            
31BundASt7            
32LandASt7            
33KreisASt7            
34DritteASt7            


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Insgesamt sollen hierbei mind. 5 Parameter abgeglichen werden (siehe hellgelbe Zellen)
Ich habe bereits eine funktionierende Matrixberechnung, die je Zelle die gesamte Matrix "ablatscht" um so die u.a. Tabelle zu füllen.
Da insgesamt über 320 Zellen die Matrixformel, mit den oben genannten Bereich (1-78:1-65536) berechnet, ist die Dauer dieser Auswertung nicht mehr zumutbar.
Über eine VBA- Lösung komme ich zurzeit leider auch nicht weiter, da meine For-To-Next etc. Schleife zu noch längeren Berechnungen führt.
Frage dazu:
Hat hier jemand eine Gedankenanstoß für mich?
Danke für jeden Hinweis.
Gruß
Werner Brinkmann

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Matrixsummen per VBA berechnen
04.04.2011 18:06:15
Tino
Hallo,
ich dachte an eine Auswertung mittels Array,
aber bei 75*65000 Daten wird wohl der Speicher streiken.
Daher müsste evtl. die Auswertung in mehreren Schritten gemacht werden.
Ob dies letztendlich schneller ist, wag ich auch noch zu bezweifeln.
Wenn Du mal genauere Angaben machst, könnte man mal was versuchen.
Besser wäre eine Beispieldatei, wo man das Ergebnis nachvollziehen kann.
Gruß Tino
Beispieldatei
04.04.2011 18:22:27
Werner
Hallo Tino,
hier mal eine Beispieldatei mit den notwendigsten Daten und einer Matrixformel (sehr abgespeckt), aber vom Grundsatz her so wie ich bisher die Berechnungen durchführen lasse:
https://www.herber.de/bbs/user/74273.xls
Matrixformel in Zelle
Auswertung

 D
728

Formeln der Tabelle
ZelleFormel
D7{=SUMME(($B7=CryRep!$A$2:$A$1000)*($C7=CryRep!$B$2:$B$1000)*(D$6=CryRep!$F$2:$F$1000)*($C$2=CryRep!$C$2:$C$1000)*($C$3=CryRep!$D$2:$D$1000)*($C$4=CryRep!$E$2:$E$1000)*(CryRep!$G$2:$G$1000))}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß und Danke
Werner Brinkmann
Anzeige
kannst mal testen
04.04.2011 19:32:08
Tino
Hallo,
kannst mal versuchen, ob es schneller ist kann ich nicht versprechen.
In CryRep verwende ich eine Hilfsspalte, die wird am Schluss wieder gelöscht.
Sub Test_Makro() Dim rngFormel As Range Dim ArrData(), ArrAusgabe(), ArrSumme() Dim lngLetzte&, nC&, A&, B& Dim iCalc% With Application iCalc% = .Calculation .EnableEvents = False .ScreenUpdating = False .Calculation = xlCalculationManual With Tabelle1 lngLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row If lngLetzte < 7 Then Exit Sub ArrAusgabe = .Range("B7", .Cells(lngLetzte, 2)).Resize(, 2).Value2 nC = .Cells(6, .Columns.Count).End(xlToLeft).Column - 3 With .Range("D7", .Cells(lngLetzte, 4)).Resize(, nC) .ClearContents ArrSumme = .Value2 End With With Tabelle2 Set rngFormel = .UsedRange.Columns(.UsedRange.Columns.Count).Offset(0, 1) For nC = 1 To Ubound(ArrSumme, 2) rngFormel.FormulaR1C1 = _ "=(RC3=Auswertung!R2C3)*(RC4=Auswertung!R3C3)*(RC5=Auswertung!R4C3)*(RC6=Auswertung!R6C" & 3 + nC & ")" ArrData = .UsedRange.Value2 lngLetzte = Ubound(ArrData, 2) For A = 1 To Ubound(ArrData) If ArrData(A, lngLetzte) = 1 Then For B = 1 To Ubound(ArrAusgabe) If ArrData(A, 1) = ArrAusgabe(B, 1) Then If ArrData(A, 2) = ArrAusgabe(B, 2) Then ArrSumme(B, nC) = ArrSumme(B, nC) + ArrData(A, 7) End If End If Next B End If Next A Next nC End With rngFormel.EntireColumn.Delete .Range("D7").Resize(Ubound(ArrSumme), Ubound(ArrSumme, 2)) = ArrSumme End With .EnableEvents = True .ScreenUpdating = True .Calculation = iCalc% End With End Sub Gruß Tino
Anzeige
AW: kannst mal testen
04.04.2011 19:46:06
Werner
Hallo Tino,
ich werde Deinen Ansatz morgen mal mit den Echtdaten ausprobieren.
Ich sage aber vorher schon mal 1000 Dank für Deine Mühe, sieht doch sehr vielversprechend aus.
Gruß
Werner Brinkmann
AW: kannst mal testen
05.04.2011 13:51:51
Werner
Hallo Tino,
ich habe "versucht" Deine Formel auf meine Bedürfnisse umzustellen.
Die ersten Testergebnisse sind sehr vielversprechend.
Anstelle von 7- 9 Minuten per Matrixformeln:
Jahre

 E
130,00

Formeln der Tabelle
ZelleFormel
E13{=WENN(C13<>"";WENN($B$7<>"";SUMME(($B$7=INDIREKT($G$3 &$J$1&":" & $G$2 &$J$2))*(E$9=INDIREKT($E$3 &$J$1&":" & $E$2 &$J$2))*($B13=INDIREKT($B$3 &$J$1&":"& $B$2 &$J$2))*($C13=INDIREKT($C$3 &$J$1&":" & $C$2 &$J$2))*INDIREKT($F$3 &$J$1&":" &$F$2 &$J$2)); SUMME((E$9=INDIREKT($E$3 &$J$1&":" & $E$2 &$J$2))*($B13=INDIREKT($B$3 &$J$1&":"& $B$2 &$J$2))*($C13=INDIREKT($C$3 &$J$1&":" & $C$2 &$J$2))*INDIREKT($F$3 &$J$1&":" &$F$2 &$J$2))); "")}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
E131. / Formel ist =$C13=""Abc
E132. / Formel ist =$B7=$C13Abc
E133. / Formel ist =$C13<>""Abc


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Sind es mit Deiner Hilfe "nur" noch 110 Sekunden für 64.000 Datensätze.
Danke Dir hierfür.
Gruß
Werner Brinkmann
Anzeige

145 Forumthreads zu ähnlichen Themen

VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Anzeige
VBA Resume vier mal, dann Resume next
MBorn

Hallöle,
gibt es eigentlich sowas wie in der Überschrift beschrieben:
Resume 4 times: versuche das gleiche vier mal
Wenn es 4 x nicht klappt dann
Resume next: mach weiter
Ich hab noch nichts dazu gefunden, ihr vielleicht?
Danke,
Born
31.01.2009 16:52:00
Thread-ID: 1045686
6 Beiträge
WorksheetFunktion.Sum auf Range beschränken.
Chris


Hallo
Der untere Code läuft soweit perfekt, wären nicht noch andere Eingabefelder in der Umbgebung.
Sobald ich in eine Andere Zelle gehen als die von den Range A2:A30 und A50:A80 kommt auch dann
die Meldung. Ich glaube das hängt mit dem Sheet zusammen.
Kann man die Workshe...
08.02.2009 20:12:00
Thread-ID: 1048456
6 Beiträge
Anzeige
| HERBERS Excel Forum
kai

hallo zusammen,
ich würde gerne per makro die letzten beiden beschriebenen zellen der spalte h löschen?
würde mich freuenn, wenn mir das jemand kurz aufschreiben könnte.
danke und viel grüße kai
26.04.2009 19:51:39
Thread-ID: 1071220
6 Beiträge
Summe bestimmter Werte in einer Spalte
Michael

Hallo zusammen,
bin neu hier und hätte eine Frage bezüglich der Berechnung einer Summe. Folgendes Szenario: Ich möchte in B1 eine Summe berechnen aus Werten der B Spalte. Soweit klar! Die einzelnen Werte in Spalte B werden in jeder Zeile mit einem Wert aus der A Spalte "nebenan" berechnet....
17.06.2009 20:47:04
Thread-ID: 1082369
2 Beiträge
Automatische Summenbildung per VBA
ChrisW

Hallo Leute,
ich habe ein Problem mit der Programmierung von Summenformeln

Die weissen Zellen in Spalte B enthalten die Zahlenwerte, alle farbigen Zellen die in Zeile C stehenden Formeln.
Ich muss automatisch die in Spalte C geschriebenen Formeln erzeugen in der entsprechende Z...
27.08.2009 17:03:04
Thread-ID: 1099047
12 Beiträge
bei Zeile einfügen per VBA Summenformel anpassen
Klaus

wie kann ich erreichen, dass eine Summenformel im Tabellenblatt z.B. Zelle A1: '=Summe(A2:A10)' nach dem einfügen einer Zeile nach der 10ten Zeile sich in '=Summe(A2:A11)' ändert!
Für den Fall, dass die Summe unter der Liste steht hab ich hier im Forum mal eine geniale Lösung gelesen:=SUMME(...
12.04.2002 17:43:41
Thread-ID: 112908
11 Beiträge
Array Formel summe wenn in VBA umwamdeln
t.wegmann@hengegroup.com

Hallo Liebes Forum,
ich habe ein Problem mit meiner Array-Formel:
=SUMME(WENN(('DATEN NEU'!$F$2:$F$25048=Frachten!$D4)*('DATEN NEU'!$N$2:$N$25048=Frachten!$F4) *('DATEN NEU'!$X$2:$X$25048=Frachten!H$2);'DATEN NEU'!$AB$2:$AB$25048))
Die Formel funktioniert gut, nur wenn ich die Date...
01.03.2010 09:54:52
Thread-ID: 1142293
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
5
5
7
5
1
11
10
1
3
10
2
2
20
2
1
10
11
1
3
3
2
6
6