Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

große anzahl Spalten Summe bilden

Forumthread: große anzahl Spalten Summe bilden

große anzahl Spalten Summe bilden
17.03.2017 07:58:06
Markus
Hallo zusammen,
brauch noch malz eure Unterstützung.
in meiner Tabelle mit 20000 Zeilen möchte ich jeweils die Summe bilden, also
Summe("G2:I2") Ausgabe auf J2
Summe)"G3:I3") Ausgabe auf J3
Wenn ich hier ein Schleife laufen lasse dauert das eine kleine Ewigkeit.
Hier gibt es doch sicherlich eine Lösung mit Arrays, oder?
Danke
MS
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: große anzahl Spalten Summe bilden
17.03.2017 08:01:55
Markus
PS bis jetzt habe ich das hier, aber es funkt nicht so richtig.
Sub test2()
Dim dic
Dim arr
Dim ID As String
Dim Z As Long
Dim f As String
Dim i As Integer
Dim lzber As Integer
lzber = Sheets("Ber").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("ber")
arr = .Range("G2:O10").Value
'  " & lzber).Value
End With
Set dic = CreateObject("Scripting.Dictionary")
With Sheets("BER")
For Z = 1 To UBound(arr, 1)
ID = Join(Array(arr(Z, 1), arr(Z, 2), arr(Z, 3), arr(Z, 4), arr(Z, 5), arr(Z, 6), arr(Z, 7) _
, arr(Z, 8), arr(Z, 9)), "|")
dic(ID) = dic(ID) + 1
arr(Z, 1) = dic(ID)
MsgBox "Summe: " & WorksheetFunction.Sum(ID)
Next
End With
End Sub

Anzeige
Du könntest auch einfach...
17.03.2017 08:40:10
Case
Hallo, :-)
... eine Formel in den Bereich eintragen lassen - und dann durch die Werte ersetzen: ;-)
Option Explicit
Sub Main()
Dim lngLastRow As Long
Dim lngCalc As Long
On Error GoTo Fin
With Application
.ScreenUpdating = False
.EnableEvents = False
lngCalc = .Calculation
.Calculation = xlCalculationManual
.DisplayAlerts = False
End With
With ThisWorkbook.Worksheets("Tabelle1") ' Tabellenblattnamen anpassen!
lngLastRow = IIf(IsEmpty(.Cells(.Rows.Count, 9)), _
.Cells(.Rows.Count, 9).End(xlUp).Row, .Rows.Count)
.Range("J2:J" & lngLastRow).Formula = "=SUM(G2:I2)"
.Range("J2:J" & lngLastRow).Value = .Range("J2:J" & lngLastRow).Value
End With
Fin:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = lngCalc
.DisplayAlerts = True
End With
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & " " & Err.Description
End Sub
Das dauert keine Sekunde. Bedingt auch durch das abschalten einiger Bremsen. ;-)
Servus
Case
Anzeige
AW: Du könntest auch einfach...
17.03.2017 09:30:44
Markus
Hallo Case
Wahnsinn, klappt. Hast ja keine Ahnung wie lange ich hier schon Rumdoktor.
Herzlichen Dank auch
MS
Gerne! Danke für die Rückmeldung, owT
17.03.2017 09:33:49
Case
:-)
AW: So wie du es programmiert hast..
17.03.2017 10:05:33
Daniel
... dürfte das Ausschalten der Bremsen keinen großen Einfluss mehr auf die Laufzeit haben, das ist auch mit Bremsen schnell genug.
Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

Anzahl mit mehreren Kriterien berechnen
TobiasM

Hallo,
ich habe aus einer Datentabelle Summen über folgende Formel berechnet:
=SUMMENPRODUKT((Daten!$E$2:$E$571=2005)*(Daten!$B$2:$B$571="Mittelstand")*(Daten!$F$2:$F$571=50) *(Daten!$G$2:$G$571))
Enspricht Berechnung Summe Umsatz (Spalte G) mit folgenden Kriterien:
Jahr: 2005...
29.08.2008 12:07:00
Thread-ID: 1005786
2 Beiträge
Kontextmenü mit Zahlen auswählen ?
Margarete

Hallo zusammen,
ich habe mal wieder eine Frage: kann ich im Kontextmenü der Maus Menüs über Zahlen auswählen?
Beispiel:
Für Auswahl GR Aktual 2008 die 1
für Auswahl GR Tool 2008 die 2
CommandBars("Cell").Reset
Set objNeuerEintrag = CommandBars("Cell").Controls.Add
W...
26.09.2008 11:39:18
Thread-ID: 1012559
3 Beiträge
Anzahl Zeilen mit identischen Eintrag errechnen
Matthias

Hallo,
ich will die folgenden Aufgabe per Makro lösen: ich will wissen, wie viele Zeilen es unterhalb einer Ausgangszeile mit dem gleichen Inhalt gibt, bis der Inhalt der nächsten darunter liegenden Zelle wechselt.
Beispiel:
Dresdner Bank Banken
Historie
Historie
...
16.10.2008 12:50:00
Thread-ID: 1016833
2 Beiträge
Höchste Zahl nicht mit berechnen
Frank

Moin werte Excelianer,
leider weis ich nicht, welche Formel ich anwenden, bzw. nach was ich im Forum suchen soll.
Ich habe eine Spalte mit mehreren Zellen (auch Leerzellen).
Jetzt möchte ich, das die Größte Zahl einer Spalte nicht in die Summe mit einberechnet werden soll.
zum B...
26.10.2008 14:32:45
Thread-ID: 1019387
3 Beiträge
Summe berechnen mit einer Matrixformel
Sibylle

Hallo,
kann man die Summe der Nettobeträge mit einer Matrixformel ermitteln.
Wenn ja, wie muss diese dann aussehen?
Besten Dank im voraus.
Gruß
Sibylle

11.11.2008 10:18:00
Thread-ID: 1023446
12 Beiträge
Summe von bis, abhängig vom Datum in Zelle C4
bis,

Vielen Dank für eure Hilfe, Beispieldatei ist hier zu finden https://www.herber.de/bbs/user/56782.xls
Hallo liebe Helfer,
ich habe ein Tabellenblatt, mit mehreren Zeilen als im Beispiel angegeben, mit IST-Werten (Monat schon kummuliert) und ein Tabellenblatt mit den PLAN-Werten für jede...
14.11.2008 11:30:00
Thread-ID: 1024502
7 Beiträge
Anzeige
gibt immer den wert 0 aus..?
pat270881

hello,
ich habe aus einem anderen Posting folgende Codezeile gesehen:
Dim DBS As New ADODB.Recordset
Do Until ActiveCell.Value = ""
DBS.AddNew
DBS!GebDatum = ActiveCell.Value
DBS!GebOrt = ActiveCell.Offset(0, 1).Value
...
Was sagt dieses Rufzeichen "!" nach DBS g...
30.12.2008 23:17:17
Thread-ID: 1036066
6 Beiträge
Summe von n bis n+t in VBA
n

Hallo zusammen
Leider habe ich sehr wenig Ahnung von VBA und probiere gerade eine Formel hinzubekommen. Sehr wahrscheinlich ist es für andere einfach, daher bitte ich um Rat.
Ich habe eine Spalte mit Zahlen (B2:B16).
Abgesehen von dieser Spalte habe ich zwei weitere Variablen: t und...
22.01.2009 17:06:49
Thread-ID: 1042696
4 Beiträge
Zahlen aus TextBoxen addieren
A.Franz

Hallo..kann mir jemand helfen?
Ich habe in einer UserForm mit 10-TextBoxen und verschieden Zahlen wie z.B 10..23,90..121,17 usw.Weiterhin eine 11-TextBox in der ich die Summe aller Werte aus den 10-TextBoxen addiert haben möchte wenn ich z.B einen CommandButton drücke, oder die sich jedesma...
31.01.2009 23:41:28
Thread-ID: 1045790
3 Beiträge
Text und Datum in einer Zelle
lou38

Hallo
In a1 steht das Datum: 12.1.09
In a2 steht das Datum: 25.2.10
Mit der Formel in a3: ="Von "&a1&" bis "&a2
ergibt sich das Resultat: Von 39826 bis 40234 (trotz Formatierung t.m.jj)
Wie muss die Formel in a3 lauten um das gewünschte Resultat/Format
Von 12...
20.03.2009 14:44:21
Thread-ID: 1062221
3 Beiträge
Text und Zahlen in einer Zelle
Sammy

Hallo liebes Forum
Ich bekomme eine Liste mit ca. 200 Namen mit Personalnummeren.
die Zelle um die es geht sieht so aus.
Zelle A1 143(Gerda Becker)
Ich benötige allerdings die Zahl 143 in einer Zelle und (Gerda Becker) in einer Zelle.
Falls das nicht möglich ist, würde e...
24.05.2009 10:20:18
Thread-ID: 1076915
7 Beiträge
SUMMENFUNKTION WERTE VON 01.01 BIS HEUTE
Gerhard

Nochmal ich...
wieder die gleiche Tabelle
Zeile 4 Spalte C bis N (Jan- Dez.)
Zeile 5 in jeder Spalte ein Wert
Jetzt brauche ich eine Formel die mir von C bis zum jetztigen Monat (Juni) eine Summe bildet und im nächsten Monat bis Juli die Summe bildent usw. (Mit HEUTE()?)
No...
20.06.2009 00:26:40
Thread-ID: 1083045
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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