Suche Hilfe bei: TableName:="Pivot-Tabelle1"
18.08.2004 12:30:11
Andy81
Diesen Code habe ich aufgenommen und SourceData geändert.
Das Problem ist, dass Excel die Pivottabelle automatisch benennt. Kann man den Tabellennamen irgendwie dynamisch gestalten?
Sub Pivot_erstellen()
Range("B2").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
ActiveWorkbook.ActiveSheets & Range(Cells(1, 1), Cells(65536, 7).End(xlUp)), TableDestination:="", _
TableName:="Pivot-Tabelle1"
ActiveSheet.PivotTables("Pivot-Tabelle1").AddFields RowFields:="Ergebnis"
ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields("Ergebnis").Orientation _
= xlDataField
End Sub
Danke im Voaraus
Andy81