Pivot Sortier (fcs code)

Hallo,
leider ist der vorhergehende Post zu und ich kann nicht nachtragen.
https://www.herber.de/forum/archiv/1364to1368/t1366457.htm (noch mit falscher Beispielmappe).
Habe aber gesehen dass Franz (fcs) seit heute wieder online ist :=)
Danke fcs für Deine Antwort. Die Top 10 Filter Abfrage lasse ich nun manuell machen.
Es ging darum es dem "Management" zu erleichtern (es sind nicht alle Excel Profis):)
NUn habe ich Deinen Code fest verdrahtet und das Tool mit einigen kleinen Makros läuft klasse :=)
Jedoch habe ich noch ein Problem was ich mal mit Dummy Daten nachgestellt habe:
https://www.herber.de/bbs/user/91174.xlsm
Die Sortierung klappt an dieser Stelle irgendwie nicht.
Zum HIntergrund. Es gibt eine Hilfpivot und eine 2. Pivot die sich auf die erste bezieht. Die Auswahl erfolgt in der ersten, die relevanten Daten spuckt die 2. Pivot aus. Diese möchte / muss ich dann auch sortieren.
Ziel sind Ranking Tabellen für Produkte (sortiert nach Budgetabweichungen!) bei denen man nach der Sortierung sofort die schlechten / guten Produkte erkennt.
Vlt. kannst Du mir helfen? Ich würde das Problem so gerne lösen!
Viele Grüße,
Marc

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Makro unter Tabellenblatt "Pivots" Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) Select Case Target.Name Case "PivotTable1" With ActiveSheet.PivotTables("PivotTable2") .RefreshTable .PivotFields("Produkt").AutoSort xlDescending, " pro Stk.", _ .PivotColumnAxis.PivotLines(1), 1 End With Case Else 'do nothing End Select End Sub

Hallo Marc,
mit folgenden Anpassungen kann man die Spalte nach der sortiert werden soll per Zifferneingabe auswählen.
Gruß
Franz

'Makro unter Tabellenblatt "Pivots"
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim Auswahl
Select Case Target.Name
Case "PivotTable1"
With ActiveSheet.PivotTables("PivotTable2")
.RefreshTable
With .PivotFields("Version").LabelRange
Auswahl = Application.InputBox(Prompt:="Bitte geben Sie die Ziffer " _
& "für die zu sortierende Spalte ein" & vbLf _
& "1 = " & .Cells(2, 1).Text & vbLf _
& "2 = " & .Cells(2, 2).Text & vbLf _
& "3 = " & .Cells(2, 3).Text & vbLf _
& "4 = " & .Cells(2, 4).Text, _
Title:="2. Pivot sortieren nach Version (absteigend)", _
Default:=1, Type:=1)
End With
If Auswahl = False Then
'do nothing
Else
Select Case Auswahl
Case 1 To 4
.PivotFields("Produkt").AutoSort xlDescending, "  pro Stk.", _
.PivotColumnAxis.PivotLines(Auswahl), 1
Case Else
MsgBox "Falsche Auswahl für Sortierung"
End Select
End If
End With
Case Else
'do nothing
End Select
End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pivot Sortier (fcs code)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread