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 Datenbasis ändern lakiexceler 2 100 30.09.2016, 11:25
Letzter Beitrag: Rabe
  Pivottabelle hs1955 4 185 08.09.2016, 09:14
Letzter Beitrag: hs1955
  Pivottabelle mit mehreren Konsultierungsbereichen Heinz0057 4 336 14.07.2016, 19:26
Letzter Beitrag: silex1
  Pivottabelle Henning Lehsten 2 319 01.06.2016, 06:54
Letzter Beitrag: chris-ka
  Durchschnittszeit in Pivottabelle Hermann 2 436 22.05.2016, 16:50
Letzter Beitrag: Hermann
Question Pivottabelle numerische Kalenderwoche Umstaende_halber 13 827 20.04.2016, 15:33
Letzter Beitrag: Umstaende_halber
  Pivottabelle Preismatrix OffpriceStore 1 311 23.02.2016, 16:06
Letzter Beitrag: shift-del
  Problem mit Pivottabelle andy73 3 373 08.02.2016, 19:26
Letzter Beitrag: andy73
  Sverweis Kombination WVERWEIS in Pivottabelle Neo87 5 786 01.11.2015, 15:34
Letzter Beitrag: shift-del
  Hilfe bei Pivottabelle Mike4711 6 1.113 17.07.2015, 18:53
Letzter Beitrag: shift-del

Gehe zu:


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