Hallo Leute,
habe ein Problem mit meinem Makro. VBA Erfahrung habe ich noch zu gut wie keine. Ich versuche momentan das Makro unabhängig vom Dateinamen zu ändern und hatte auch erste Erfolge durch den ActiveSheet Befehl. Siehe hier:
ActiveWorkbook.Worksheets(ActiveSheet.Name).AutoFilter.Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets(ActiveSheet.Name).AutoFilter.Sort.SortFields. _
Add Key:=Range("AS1"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets(ActiveSheet.Name).AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Nun komme ich aber nicht weiter:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"(ActiveSheet.Name)!R1C1:R1048576C48", Version:=xlPivotTableVersion14).
CreatePivotTable TableDestination:="Tabelle1!R3C1", TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion14
Sheets("Tabelle1").Select
Cells(3, 1).Select
Was ist an dem Code falsch? Bzw. wie kann ich die SourceData auf die aktuelle Datei beziehen?
Hoffe ihr könnt mir weiter helfen,
liebe Grüße!