VBA - dynamische Spaltenanzahl

[fonds]

Hallo!
Ich habe folgenden Teilcode für die Erstellung einer Pivottabelle:



Set ptCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:=”A1: D” & ActiveSheet.UsedRange.Rows.Count)


Wie kann ich den Code ändern, so dass die Spaltenanzahl auch dynamisch ist, da teilweise meine Tabellen zusätzliche Spalten haben.

 

[Zvoni]

Das SourceData:="A1: D" usw. bezeichnet ein Range-Objekt.

Du kannst Cells-Objekte innerhalb eines Range-Objekts benutzen.

With ActiveSheet
.Range(.Cells(1,1), .Cells(ActiveSheet.UsedRange.Columns.Count, ActiveSheet.UsedRange.Rows.Count))
End With