Hallo zusammen,
ich erstelle mit Hilfe eines Makros eine Pivot-Tabelle.
Set cacheofpt = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:="'" & ActiveSheet.Name & "'!R1C24:R1048576C24")
Set pt = cacheofpt.CreatePivotTable(TableDestination:=ActiveSheet.Range("A1"))
With pt
With .PivotFields.Range("Status")
.Orientation = xlRowField
.Position = 1
End With
End With
Gibt es eine Möglichkeit den Feldnamen so anzupassen, dass er allgemeingültig ist?
Die Daten befinden sich immer in Spalte X, ändern sich aber fortlaufend.
Vielen Dank im Voraus