Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gleiche Werte zusammenfassen und addieren

Gleiche Werte zusammenfassen und addieren
30.10.2014 09:10:25
Tom
Hallöchen,
habe eine sehr lange Tabelle mit Artikeldaten, die so aussieht:
Die Artikelnummer steht in der ersten Spalte und soll im Ergebnis nur noch einmal auftauchen. Alle Werte dahinter müssen addiert werden.
1 - 2 - 3 - 4
2 - 3 - 4 - 5
3 - 4 - 5 - 6
1 - 2 - 3 - 4
6 - 7 - 8 - 9
2 - 3 - 4 - 5
1 - 2 - 3 - 4
Ergebnis soll sein:
1 - 6 - 9 - 12
2 - 6 - 8 - 10
3 - 4 - 5 - 6
6 - 7 - 8 - 9
bekomme das einfach nicht hin, kann jemand helfen?
Vielen Dank in Voraus!
Tom

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiche Werte zusammenfassen und addieren
30.10.2014 09:20:31
Hajo_Zi
Hallo Tom,

Tabelle2
 ABCDEFGHI
11234 16912
22345 26810
33456 3456
41234 6789
56789     
62345     
71234     
8         

verwendete Formeln
Zelle Formel Bereich N/A
F1=MIN(A:A)  
G1:I4=SUMMEWENN($A$1:$A$7;$F1;B$1:B$7)  
F2:F8{=WENN(MIN(WENN($A$1:$A$7>F1;$A$1:$A$7))=0;"";MIN(WENN($A$1:$A$7>F1;$A$1:$A$7)))}$F$2 
{} Matrixformel mit Strg+Umschalt+Enter abschließen
Matrixformeln sind durch geschweifte Klammern {} eingeschlossen
Diese Klammern nicht eingeben!!
Excel-Inn.de
Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 18.17 einschl. 64 Bit



Anzeige
AW: Gleiche Werte zusammenfassen und addieren
30.10.2014 09:26:34
Tom
Hallo Hajo,
das nenn ich schnell. Ich hab wohl vergessen zu erwähnen, dass ich eine VBA Lösung suche. SORRY!
Die Tabelle mit den mehrmals vorkommenden Artikelnummern ist schon das Ergebnis eines Macros (Extrakt aus einer riesigen Tabelle. Im letzten Schritt sollen eben die doppelten Artikelnummen verschwinden und alle anderen Werte dahinter addiert werden.
Gruß TOM

AW: Gleiche Werte zusammenfassen und addieren
30.10.2014 10:32:59
Beverly
Hi Tom,
Sub Summieren()
Dim objDictionary As Object
Dim varBereich As Variant
Dim lngZaehler As Long
Dim arrDaten()
Dim arrSumme()
Set objDictionary = CreateObject("Scripting.Dictionary")
varBereich = Range("A1:A7")
For lngZaehler = LBound(varBereich) To UBound(varBereich)
objDictionary(varBereich(lngZaehler, 1)) = 0
Next
arrDaten() = objDictionary.keys
ReDim arrSumme(0 To UBound(arrDaten()), 0 To 3)
For lngZaehler = 0 To UBound(arrDaten())
arrSumme(lngZaehler, 0) = arrDaten(lngZaehler)
arrSumme(lngZaehler, 1) = Application.SumIf(Range("A1:A7"), arrDaten(lngZaehler), Range( _
"B1:B7"))
arrSumme(lngZaehler, 2) = Application.SumIf(Range("A1:A7"), arrDaten(lngZaehler), Range( _
"C1:C7"))
arrSumme(lngZaehler, 3) = Application.SumIf(Range("A1:A7"), arrDaten(lngZaehler), Range( _
"D1:D7"))
Next lngZaehler
Range("F1").Resize(lngZaehler, 4) = arrSumme()
End Sub

Anzeige
AW: Gleiche Werte zusammenfassen und addieren
30.10.2014 10:49:44
Tom
... danke! Den Code kann ich gar nicht nachvollziehen, geht das nicht einfacher? ich probiers mal!
Tom

AW: Gleiche Werte zusammenfassen und addieren
30.10.2014 11:11:52
Beverly
Hi Tom,
klar, gibt auch einfacheren Code - z.B. diesen:
Sub Summieren2()
Dim lngZaehler As Long
Dim lngZeile As Long
lngZaehler = 1
For lngZeile = 1 To 7
If Application.CountIf(Range("F1:F7"), Cells(lngZeile, 1)) = 0 Then
Cells(lngZaehler, 6) = Cells(lngZeile, 1)
Cells(lngZaehler, 7) = Application.SumIf(Range("A1:A7"), Cells(lngZeile, 1), Range(" _
B1:B7"))
Cells(lngZaehler, 8) = Application.SumIf(Range("A1:A7"), Cells(lngZeile, 1), Range(" _
C1:C7"))
Cells(lngZaehler, 9) = Application.SumIf(Range("A1:A7"), Cells(lngZeile, 1), Range(" _
D1:D7"))
lngZaehler = lngZaehler + 1
End If
Next lngZeile
End Sub
Könnte aber länger dauern, wenn es sehr viele Daten sind.

Anzeige
AW: Gleiche Werte zusammenfassen und addieren
30.10.2014 12:02:15
Tom
danke, das wars, den versteh ich schon eher!
Viiiiiiiiiiiiiiiielen Dank!!!

107 Forumthreads zu ähnlichen Themen

Gleiche Zeilen zählen und Werte zusammenzählen
asz

Hallo,
ich habe ein Problem: Ich habe eine Liste wie die folgende:
https://www.herber.de/bbs/user/62689.xls
Es handelt sich jeweils um mehrere Exemplare desselben Buches/Titels. In Spalte I stehen die Ausleihzahlen der einzelnen Exemplare. Ich würde nun gern in einem neuen Blatt au...
23.06.2009 16:26:09
Thread-ID: 1083867
2 Beiträge
Anzeige
gleiche Zahlen zusammenfassen
Karl

Guten Tag!Ich finde aus meinem Problem kein Ausweg. Vielleicht kann mir jemand helfen.Wie fasse ich Zahlen, die mit der gleichen Ziffer beginnen in einer extra Tabelle zusammen.
24.04.2002 16:26:05
Thread-ID: 116008
3 Beiträge
Beschriftung Liniendiagramm gleiche Werte
Suzette

Hallo Ihr Lieben,
vor einiger Zeit hat mir folgender Code super geholfen:
Sub Beschriftung() Dim chrDiagramm As Chart Dim arrWerte1 Dim arrWerte2 Dim intPunkt As Integer Set chrDiagramm = Worksheets("Kosten").ChartObjects(1).Chart With chrDiagramm arrWerte1 = .SeriesCollection("2009").V...
28.08.2010 09:11:00
Thread-ID: 1174557
2 Beiträge
Anzeige
2 Tabellen vergleichen,bei unter. Werte farblich
Sven

Hallo,ich habe ein, für mich, großes Problem.
Ich habe 2 Tabellen auf unterschiedlichen WorkSheets.
Jetzt wird die erste Tabelle nach einem Primärschlüssel
mit der zweiten verglichen und falls der Primärschlüssel identisch ist, wird der ganze Datensatz ersetzt.
Jetzt meine Frage: Is...
24.05.2002 07:59:32
Thread-ID: 123294
4 Beiträge
Doppelte Werte zusammen addieren
Pascal

Hallo liebes Forum,
ich hab mal eine Frage. Ich hab eine Datei. Im ersten Tabellenblatt " Zeitprotokoll" befinden sich in der Spalte E Innenauftragsnummern, diese Innenauftragsnummern können auch mehrfach vorkommen.
In der Spalte K befinden sich die dazu gehörigen Zeiten. Jetzt würde...
08.06.2011 12:50:32
Thread-ID: 1217728
2 Beiträge
Werte vergleichen aus verschiedenen Tabellen
Kai

Hallo zusammen,
in Tabelle 1 habe ich unter Spalte E verschiedene Zahlen stehen. In Tabelle 2 habe ich unter Spalte B auch verschiedenen Zahlen stehen. Jetzt möchte ich wissen, welche Zahlen von Tabelle 2 Spalte B auch in Tabelle 1 Spalte E vorkommen. Am besten wäre es, wenn Excel mir bei d...
24.08.2011 08:29:33
Thread-ID: 1227344
3 Beiträge
Tabelle mit gleichen Werten farblich formatieren!
Bobby

Hallo zusammen,
habe folgendes Problem:
Möchte eine Tabelle mittels einer VBA-Prozedur zweifarbig abgrenzen(Grau/Weiss), sodass gleiche Inhalte in Spalte "A", die immer untereinander stehen über die gesamte Zeile farbig von den nächsten anderen Werten abgegrenzen. Die Anzahl der Spalten i...
05.06.2002 18:36:40
Thread-ID: 126266
4 Beiträge
Rangliste (gleicher Rang für doppelte Werte)
Peter

Guten Morgen
In der Praxis scheitert die Rang-Funktion häufig an der Anforderung, dass doppelte Werte keinen identischen Rang bekommen dürfen. Die Funktion weist gleichen Werten den gleichen Rang zu und überspringt den nächsten Rang (Quelle: Excel Formeln und Funktionen Markt & Technik)...
24.02.2012 08:55:57
Thread-ID: 1252267
11 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
4
2
1
4
3
1
2
3
10
1
6
2
1
3
2
1
9
8
6
1
2
11
1
9