Makro mit VBA

Question

Hallo Zusammen,

ich hätte da mal wieder ein kleines Problem. Ich versuche gerade mit VBA ein Makro zu erstellen, aber irgendwie klappt das nicht so ganz.

Er soll Spalte A:N selektieren und dann aus diesen eine Pivottabelle erstellen, klappt eigentlich auch ganz gut. mein Problem ist nur dass er in der Pivot als Datenquelle den Namen des aktiven Arbeitsblattes benutzt, sich dieser aber je nach Dokument ändert. Vllt hilft die Info, dass der Name des Arbeitsblatts gleich dem Namen der Excel Datei ist. Hier mal mein VBA Code:

Mit activeworksheet scheint es nicht zu funktionieren.

Columns("A:N").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"activeworksheet R1C1:R1048576C14", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Tabelle2!R3C1", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion14
Sheets("Tabelle2").Select


Vielen Dank für die Hilfe

Gruß Christ

Answer 1

Hier nochmals der VBA-Code mit dem es funktioniert:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Test 1!R1C1:R1048576C15", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Tabelle1!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion14


Das Problem ist nur dass der Name, in diesem Fall Test 1, sich ändert.

Wie bekomm ich es denn hin dass er da den aktuellen Namen des angewählten Tabellenblatts benutzt?

Gruß

Chris