Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in 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 27 455 24.02.2017, 09:58
Letzter Beitrag: Gast 123
  Pivottabelle Datenbasis ändern lakiexceler 2 160 30.09.2016, 11:25
Letzter Beitrag: Rabe
  Pivottabelle hs1955 4 287 08.09.2016, 09:14
Letzter Beitrag: hs1955
  Pivottabelle mit mehreren Konsultierungsbereichen Heinz0057 4 447 14.07.2016, 19:26
Letzter Beitrag: silex1
  Pivottabelle Henning Lehsten 2 387 01.06.2016, 06:54
Letzter Beitrag: chris-ka
  Durchschnittszeit in Pivottabelle Hermann 2 550 22.05.2016, 16:50
Letzter Beitrag: Hermann
Question Pivottabelle numerische Kalenderwoche Umstaende_halber 13 1.051 20.04.2016, 15:33
Letzter Beitrag: Umstaende_halber
  Pivottabelle Preismatrix OffpriceStore 1 358 23.02.2016, 16:06
Letzter Beitrag: shift-del
  Problem mit Pivottabelle andy73 3 447 08.02.2016, 19:26
Letzter Beitrag: andy73
  Sverweis Kombination WVERWEIS in Pivottabelle Neo87 5 970 01.11.2015, 15:34
Letzter Beitrag: shift-del

Gehe zu:


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