Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Name Pivottabelle

Name Pivottabelle
11.10.2004 12:48:11
Stefan
Hallo!
Über ein Macro versuche ich mit "ActiveSheet.PivotTableWizard" eine Pivottabelle erstellen zu lassen, auf deren Ergebnisse ich später im Macro zurückgreifen möchte. Leider ignoriert mein Excel den Wert "TableName" völlig und vergibt den Namen für das neue Tabellenblatt automatisch, sodass ich über das Macro nicht mehr zugreifen kann. Wie kann ich einen statischen Namen für das Sheet einrichten?
Vielen Dank
Stefan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Name Pivottabelle
11.10.2004 12:51:27
Otto
Hallo Stefan,
Meine Testumgebung: Excel 8.0 SR-2, unter Windows 2000 SP-2
Bei PivotTabellen ist der Excel-Level von Relevanz, bitte gebe ihn an. Außerdem wäre es schön, Du würdest Dein Makro hier posten, damit der Fehler gefunden werden kann..
Gruß Otto
AW: Name Pivottabelle
EtoPHG
Hallo Stefan,
Nach Erstellen der Tabelle:
ActiveSheet.PivotTables("PivotTable1").Name = "DeinNameHier"
Gruss Hansueli
AW: Name Pivottabelle
11.10.2004 14:32:37
Stefan
Danke für die Hinweise, weiter bin ich allerdings nicht gekommen.
Excel habe ich in der Version 97 SR-2 (war nicht in der Auswahl).
Hier der Code aus dem Makrorecorder:
Sheets("Order").Select
Columns("G:T").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"Order!C7:C20", TableDestination:="", TableName:="Pivot-Tabelle1"
ActiveSheet.PivotTables("Pivot-Tabelle1").AddFields RowFields:=" Lieferant "
With ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields(" Orders ")
.Orientation = xlDataField
.Name = "Summe - Orders "
.Function = xlSum
End With
Viele Grüße
Stefan
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige