Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.WorksheetFunction.Sum für 2d Array

Application.WorksheetFunction.Sum für 2d Array
25.11.2014 09:16:59
Frank
Hallo an Alle,
ich habe schon gesucht und auch ein bisschen was gefunden, aber so richtig hilft mir das nicht weiter. Zur Zeit bilde ich die Summe der Spalte 5 meines Arrays indem ich es über eine Schleife aufaddiere. Nun dachte ich, dass man das auch mit der Sum Formel lösen könnte, aber so wie ich es im Code geschrieben habe geht das leider nicht. Hätte da jemand eine Idee?
For i = 1 To Anzahl
F = F + Daten(i, 5)
'Application.WorksheetFunction.Sum(Daten(1, 5): Daten(Anzahl, 5))
Next
Vielen Dank und viele Grüße
Frank

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Application.WorksheetFunction.Sum für 2d Array
25.11.2014 09:28:10
RPP63
Hallo!
Eine Möglichkeit: 
Sub Summe()
Dim letzte As Long
With Tabelle1
letzte = .Cells(1, 5).End(xlDown).Row
MsgBox WorksheetFunction.Sum(.Range("E1:E" & letzte))
End With
End Sub

Gruß, Ralf

AW: Application.WorksheetFunction.Sum für 2d Array
25.11.2014 09:32:23
Frank
Hallo Ralf,
vielen Dank für deine schnelle Antwort bzw. dem Codebsp.
Besteht aber auch die Möglichkeit Excel Datenblätter außen vor zu lassen und das rein über VBA zu lösen?
Vielen Dank und viele Grüße
Frank

Rein über VBA?
25.11.2014 10:05:02
RPP63
Hi Frank!
Noch kann ich Dir nicht ganz folgen ...
Aber Du kannst natürlich ein Array per Code füllen und dann die Summe des Arrays ermitteln: 
Sub aSumme()
Dim arrSumme
arrSumme = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
MsgBox WorksheetFunction.Sum(arrSumme)
End Sub

Gruß, Ralf

Anzeige
AW: Application.WorksheetFunction.Sum für 2d Array
25.11.2014 09:59:17
Rudi
Hallo,
eine einzelne Spalte oder Zeile kannst du per Index ansprechen.
F = WorksheetFunction.Sum(WorksheetFunction.Index(Daten, 0, 5))
Einen Vorteil erzielst du damit aber nicht. Im Gegenteil. Die Schleife ist schneller.
Außerdem funktioniert das nur bis zu 65536 Zeilen.
Gruß
Rudi

AW: Application.WorksheetFunction.Sum für 2d Array
25.11.2014 10:05:52
Frank
Hallo Rudi,
vielen Dank auch für deine Antwort. Dann liegt es nun dank deiner Zeilen klar auf der Hand, dass ich die Index Funktion nicht verwenden werde, da wie ich bereits bei Daniel geschrieben habe mein Array auch gut um die 500.000 Zeilen beinhaltet.
Auch dir einen schönen Tag und vielen Dank.
Frank

Anzeige
AW: Application.WorksheetFunction.Sum für 2d Array
25.11.2014 09:52:06
Daniel
Hi
geht im Prinzip so:
F = Worksheetfunction.Sum(Worksheetfunction.Index(Daten, 0, 5))
In VBA direkt gibt es keine Funktionen, um Arrays nach Zeilen oder Spalten auszuwerten.
Deshalb muss man, wenn man elegant sein und Schleifen vermeiden will, auf die Index-Funktion von Excel ausweichen (Worksheetfunction = Excelfunktion).
Da die Excelfunktionen aber für das Arbeiten mit Excelzellen geschrieben wurden und nicht direkt für Arrays, wird hierbei wahrscheinlich der ein- oder andere Konvertierungsprozess stattfinden, weshalb es durchauch sein kann, dass die Schleife bei grossen Datenmengen schneller ist und auch grössere Datenmengen verkraftet.
Beim Verarbeiten von Arrays ist VBA sehr schnell, weswegen man hier die Schleife nicht scheuen braucht.
(im Gegensatz zum Verarbeiten von Excelzellen, eine Schleife über einzelne Excelzellen sollte man möglichst vermeiden).
Gruß Daniel

Anzeige
AW: Application.WorksheetFunction.Sum für 2d Array
25.11.2014 10:03:03
Frank
Hallo Daniel,
vielen Dank für die ausführliche Erläuterung zu meinem Anliegen, welche sehr hilfreich und lehrreich für mich ist. Aufgrund deiner Zeilen werde ich meinen Code so belassen, da die Anzahl durchaus mal bei 500.000 liegen kann. Dein kleiner kurzer Code funktioniert dennoch Super. Vielen Dank an dieser Stelle.
Ich werde spaßeshalber mal die UDF 1000 mal aufrufen... Und schauen ob Index oder die bisherige Schleife schneller ist.
Vielen Dank und einen schönen Tag wünsche ich.
Frank

Das kommt ganz darauf an, was für ein Array ...
25.11.2014 20:08:37
Luc:-?
…das ist, denn ein Variant mit einem Array (Stichwort Arrays in Arrays) kann durchaus entweder nach einer bestimmten Spalte oder Zeile ausgewertet wdn.
Gruß, Luc :-?
Besser informiert mit …
Anzeige

187 Forumthreads zu ähnlichen Themen

formula sum vba
Andi

Hallo,
ich möchte via makro eine Summenformel unter eine Datenreihe setzen (die Summenformel soll danach in der Zelle stehen).
Dies wollte ich über die Funktion „Formula“ machen
Zeile = 5
Spalte = 4
LetzteSpalte = 7
.Range(.Cells(Zeile, Spalte), .Cells(Zeile, Spalte)).Fo...
05.12.2013 18:28:02
Thread-ID: 1341473
7 Beiträge
Anzeige
Worksheetfunction.Sumif
smi

Hallo,
ich habe eine Funktion geschrieben, die mir aus einem Bereich den Mittelwert des oberen Drittels errechnen soll.
Die Worksheetfunction Sumif liefert mir aber kein Ergebnis, wenn ich mehrere Zahlen mit Nachkommastellen habe. Hat jemand eine Idee warum?
Vielen Dank im Voraus.
20.11.2014 12:22:14
Thread-ID: 1393422
3 Beiträge
WorksheetFunction.SumProduct
Max

Mahlzeit alle zusammen,
ich versuche gerade die Berechnung folgender Formel:
=SUMMENPRODUKT((A1:N35="Date")*ZEILE(1:35))
in VBA durchzuführen. Allerdings erhalte ich dabei immer den Fehler "Typen unverträglich".
firstLine = WorksheetFunction.SumProduct((Worksheets(wks1).Range("...
27.11.2014 11:51:04
Thread-ID: 1394895
15 Beiträge
Anzeige
Cells in Range bei VBA
Ulrich

Hallo,
ich hoffe ihr könnt helfen
folgende Zeile geht
Worksheets("vorl").Range("H34:BK34").Copy
gewandelt in cells geht nicht
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
benutzt in
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
Range...
06.05.2015 10:03:50
Thread-ID: 1424850
26 Beiträge
worksheetFunction Sumif funktioniert nicht
Bonduca

Hallo,
ich habe mir folgenden Code in VBA gebastelt: Sub PLZ_aufsummieren() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim varResult As Variant Set ws1 = Worksheets("A") Set ws2 = Worksheets("B") For i = 17 To 40000 For j = 4 To 500 varResult = Application.WorksheetFunction.SumIf( _ Arg1:=w...
19.08.2015 07:32:08
Thread-ID: 1443036
3 Beiträge
Summenbildung Range/Cells
Robin

Hallo Ihr lieben,
ich stelle mich gerade total an, die Summe aus einem Bereich richtig in einen Code zu packen... Kann mir bitte jemand bei der Korrektur dieser einen Code-Zeile helfen?
In die Variable lngSumme soll die Summe aus dem (dynamischen) Bereich T1:Tstrzeile geschrieben werden...
29.09.2015 11:46:32
Thread-ID: 1449908
3 Beiträge
Range in Sumproduct
Alex

Hallo ich bins wieder, leider funktioniert mein Range nicht mehr, habe alles versucht, aber kriege es nicht hin.
in Excel wird diese Formel angezeigt und als wert steht #Name?. Wenn ich rngArea.Cells(lngRow; 1) mit dem Kriterium manuell ersetze, kommt das richtige Ergebnis.
=INDEX_ ([M_...
17.01.2019 15:07:13
Thread-ID: 1668890
5 Beiträge
VBA, WorksheetFunction.SearchB
Rainer Quaas

Hallo Excel-User,die Häufigkeit (H) wie oft String1 in String2 vorkommt, wobei String1 * oder ? als Wildcard enthalten kann, wird durch folgende Funktion berechnet:H = Application.WorksheetFunction.SearchB(String1 , String2 , 1)Bei einer Zeichenanzahl > 32.0000 von String2 ist diese Formel nich...
04.04.2003 11:23:40
Thread-ID: 240294
4 Beiträge

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
6
5
2
14
2
25
2
2
4
3
3
3
1
3
4
8
2
2
2
1
2
8
3
6
3