AW: pivot-teilergebnisse - dynamisch referenzieren
20.01.2008 18:49:53
sabsx
Lieber Herby,
das Makro macht genau das was ich brauche... habs versucht für meine Zwecke umzubauen, allerdings verstehe ich die Zeile nicht wie du die Daten quasi kopierst...
mein "Gebiet" befindet heißt eig. Kunde2 und steht immer in Spalte A(Z=1?), mein Ergebnis heißt Total (eng. Excel), meine Subtotals stehen einmal in Spalte H (Z=8?), einmal in Spalte F und einmal in Spalte G. (Also in Summe 3 Tabellen die alle dasselbe Makro bekommen sollen...)
ich hab mal versucht deinen Orginalcode:
Option Explicit
Private Sub CommandButton1_Click()
Dim PivBereich As Range
Dim Zelle As Range
Dim Z As Integer
ActiveSheet.PivotTables(1).PivotFields("Gebiet").DataRange.Select
Z = 1
For Each Zelle In Selection
If Right(Zelle, 8) = "Ergebnis" Then
Z = Z + 1
Cells(Z, 5) = Zelle: Cells(Z, 6) = Zelle.Offset(0, 2)
End If
Next
End Sub
für einen meiner Fälle zu manipulieren, aber da tut sich gar nicht:
Option Explicit
Private Sub Button2_Click()
Dim PivBereich As Range
Dim Zelle As Range
Dim Z As Integer
ActiveSheet.PivotTables(1).PivotFields("Kunde2").DataRange.Select
Z = 1
For Each Zelle In Selection
If Right(Zelle, 1) = "Total" Then
Z = Z + 1
Cells(Z, 7) = Zelle: Cells(Z, 8) = Zelle.Offset(0, 2)
End If
Next
End Sub
kannst du mir erklären was diese Zeile Cells(Z, 7) = Zelle: Cells(Z, 8) = Zelle.Offset(0, 2) genau macht bzw lauten müsste damit ich auch das bekomme was ich brauche?
Vielen lieben Dank!