Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

Pivottabelle in VBA
#1
Hallo,
ich habe bereits einen Code, der für 2 Spalten wie eine Pivottabelle funktioniert. (Produkt / Zahl)
Jetzt bräuchte ich aber eine 3. Spalte mit der Firma, die das Produkt herstellt, um zu vermeiden, dass die Zahlen zweier unterschiedlicher Hersteller addiert werden, nur weil das Produkt gleich heißt.

Hier ist der bisherige Code für 2 Spalten (in A steht Produkt, in B die Zahl):

Dim Wiederholungen1 As Long, Wiederholungen2 As Long
Application.ScreenUpdating = False
For Wiederholungen1 = 2 To Range("A65536").End(xlUp).Row
For Wiederholungen2 = 2 To Range("A65536").End(xlUp).Row
If Wiederholungen1 <> Wiederholungen2 Then
If Cells(Wiederholungen1, 1) = Cells(Wiederholungen2, 1) Then
Cells(Wiederholungen1, 2) = Cells(Wiederholungen1, 2) + Cells(Wiederholungen2, 2)
Rows(Wiederholungen2).Delete
End If
End If
Next
Next

Selection.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'absteigend sortieren

Kann man den Code irgendwie erweitern, sodass er bei einer zusätzlich eingefügten Spalte mit der Firma dann überprüft ob Spalten Firma und Produkt gleich sind und dann erst die Werte Zahl kopiert?

Danke und liebe Grüße
Sarah
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Pivottabelle Thomas78 36 889 08.03.2017, 10:10
Letzter Beitrag: Thomas78
  Pivottabelle Datenbasis ändern lakiexceler 2 195 30.09.2016, 11:25
Letzter Beitrag: Rabe
  Pivottabelle hs1955 4 337 08.09.2016, 09:14
Letzter Beitrag: hs1955
  Pivottabelle mit mehreren Konsultierungsbereichen Heinz0057 4 482 14.07.2016, 19:26
Letzter Beitrag: silex1
  Pivottabelle Henning Lehsten 2 413 01.06.2016, 06:54
Letzter Beitrag: chris-ka
  Durchschnittszeit in Pivottabelle Hermann 2 604 22.05.2016, 16:50
Letzter Beitrag: Hermann
Question Pivottabelle numerische Kalenderwoche Umstaende_halber 13 1.138 20.04.2016, 15:33
Letzter Beitrag: Umstaende_halber
  Pivottabelle Preismatrix OffpriceStore 1 380 23.02.2016, 16:06
Letzter Beitrag: shift-del
  Problem mit Pivottabelle andy73 3 491 08.02.2016, 19:26
Letzter Beitrag: andy73
  Sverweis Kombination WVERWEIS in Pivottabelle Neo87 5 1.038 01.11.2015, 15:34
Letzter Beitrag: shift-del

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste