Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

293 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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
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
1
9
2
1
2
11
6
5
3
2
2
6
2
1
16
2
7
16
4
5
3
3
5
7
2