Microsoft Excel

Herbers Excel/VBA-Archiv

Suche Hilfe bei: TableName:="Pivot-Tabelle1"

Betrifft: Suche Hilfe bei: TableName:="Pivot-Tabelle1" von: Andy81
Geschrieben am: 18.08.2004 12:30:11

HAllo! Ich benötige Hilfe bei dem unten stehenden Code.
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
  


Betrifft: AW: Suche Hilfe bei: TableName:="Pivot-Tabelle1" von: Holger
Geschrieben am: 18.08.2004 16:49:43

Kann man nicht einfach die Bezeichnung in TableName:="Pivot-Tabelle1" ändern?

Holger


  


Betrifft: AW: Suche Hilfe bei: TableName:="Pivot-Tabelle1" von: Andy81
Geschrieben am: 18.08.2004 17:28:54

Leider nicht. Trotzdem Danke.
HAbe es irgendwie mit einer Schleife und einem Vergleich hinbekommen. keine Ahnung wie, aber es funktioniert.

Andy81