Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 09:22:11
Wenn Istleer über mehrere Blätter
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1668to1672
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
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Artikel zusammenfassen und Anzahl addieren

Artikel zusammenfassen und Anzahl addieren
24.01.2019 14:58:28
marc
Hallo Leute,
ich bräuchte da nochmal Hilfe ...
Die Datei:
https://www.herber.de/bbs/user/127066.xlsx
ich wollte via VBA versuchen Artikel mit Gleicher Bezeichnung, Artikelnummer und L ("D","E","G") in eine Zeile zusammen zu fügen aber trotzdem die Anzahl in Spalte "A" zu addieren.
Mal ist Zeile "G" leer mal nicht. Wenn "G" leer ist kann das ignoriert werden. Dann müssen nur die anderen Parameter übereinstimmen.
Ich hoffe mein Vorhaben ist klar =)
Dankeee Marc

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

Betreff
Datum
Anwender
Anzeige
AW: meinst Du so..... fast =)
24.01.2019 16:13:59
marc
Hi und schonmal vielen Dank.
Leider sollte die Formatierung wie in der Vorlage bleiben. Also die Werte in jeder Spalte wie sie jetzt sind. Mir wäre damit geholfen wenn unter der Tabelle die zusammengefügte Tabelle einfach fortgesetzt wird. Denn ich muss diese dann weiter verarbeiten.
Also Quasi :
'VBA Code zusammenfassen
letzteZeile + 5 'ab hier die neue Tabelle mit der selben Formatierung
Und dann alte Tabelle löschen bzw. Zeilen löschen so das die neue Tabelle ganz oben unter den überschriften ist.
Hätte ich vielleicht vorher sagen sollen sorry
Danke
Anzeige
noch ne VBA Lösung
24.01.2019 16:26:49
UweD
Hallo
so?
Sub dgdgdfd()
    Dim TB1, TB2, Z1 As Integer, LR1 As Long, LR2 As Long
    
    Set TB1 = Sheets("Tabelle1")
    Z1 = 3 'erste Zeile mit Daten 
    
    'Blatt kopieren 
    TB1.Copy after:=Sheets(Sheets.Count)
    Set TB2 = ActiveSheet
    LR1 = TB1.Cells(TB1.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte 
    With TB2
    
        'Duplikate raus 
        .Range("$A:$G").RemoveDuplicates Columns:=Array(4, 5, 7), Header:=xlYes

        'Formel setzen 
        LR2 = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte 

        With .Cells(Z1, 1).Resize(LR2 - Z1 + 1, 1)
            .FormulaR1C1 = _
            "=SUMPRODUCT((" & TB1.Name & "!R" & Z1 & "C4:R" & LR1 & "C4=RC[3])" & _
                        "*(" & TB1.Name & "!R" & Z1 & "C5:R" & LR1 & "C5=RC[4])" & _
                        "*(" & TB1.Name & "!R" & Z1 & "C7:R" & LR1 & "C7=RC[6])" & _
                        "*(" & TB1.Name & "!R" & Z1 & "C1:R" & LR1 & "C1))"
            .Value = .Value
        End With
            
        'Summe ergänzen 
        With .Cells(1, 1).Offset(LR2 + 2, 0)
            .FormulaR1C1 = "=SUM(R[-" & (LR2 - Z1 + 3) & "]C:R[-1]C)"
            .Value = .Value
        End With
        
        
        'ggf Spalten löschen 
        '.Columns(2).Resize(, 2).Delete xlLeft 

    End With
End Sub

Verwendet wird die Formel 

A3: =SUMMENPRODUKT((Tabelle1!$D$3:$D$153=D3)*(Tabelle1!$E$3:$E$153=E3)*(Tabelle1!$G$3:$G$153=G3) _
*(Tabelle1!$A$3:$A$153))

Wobei die Zeilenzahlen ermittelt werden
LG UweD
Anzeige
Artikel zusammenfassen und Anzahl addieren
24.01.2019 16:35:32
marc
Vielen Dank . Beide Varianten gehen super und machen es genauso wie ich es brauche.
Ihr seid die Besten =)
DANKE DANKE DANKE
Danke für die Rückmeldung owT
24.01.2019 17:00:06
UweD

304 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