Hallo liebe Mitglieder,
ich komme einfach nicht weiter und brauche ein wenig Hilfe.
Ich habe einen Makro mit dem ich wunderbar Pivot-Tabellen automatisch generieren lassen kann. Aber nur wenn die Quelldaten in einer Spalte zu finden sind.
Ich will mein Makro so umschreiben, dass ich die Quelldaten aus 3 Spalten ziehen kann.
Hier mein bisheriger Code zum besseren Verständnis:
Dim pt As PivotTable
Dim cacheofpt As PivotCache
Dim pf As PivotField
Dim pi As PivotItem
Set rngSource = ActiveSheet.Range("X:X")
With rngSource
Set cacheofpt = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:="'" & rngSource.Parent.Name & "'!" _
& rngSource.Range("A1").Address(True, True, xlR1C1) & ":" _
& .Parent.Cells(.Row + .Rows.Count - 1, .Column).Address(True, True, xlR1C1))
End With
Set pt = cacheofpt.CreatePivotTable(TableDestination:=ActiveSheet.Range("A1"))
With pt
With .PivotFields(rngSource.Range("A1").Text)
.PivotItems("(blank)").Visible = False
.PivotItems("keine Angabe gemacht").Visible = False
.Orientation = xlRowField
.Position = 1
End With
End With
Wie muss ich ihn umschreiben, wenn die Daten nun in den Spalten X, Y, Z zu finden sind?
Vielen Dank im Voraus