Das Archiv des Excel-Forums

Macro+Pivot Tabelle

Bild

Betrifft: Macro+Pivot Tabelle
von: Reich

Geschrieben am: 26.09.2003 10:05:28

Hallo!

Brauche Hilfe ... möchte die Erstellung einer Pivot Tabelle als Makro aufzeichnen ... aber funktioniert nicht ... was kann ich tun?

gruss

Lydia
Bild


Betrifft: was funzt nicht?????????__ot
von: chris
Geschrieben am: 26.09.2003 10:06:24




Bild


Betrifft: AW: was funzt nicht?????????__ot
von: Reich
Geschrieben am: 26.09.2003 10:10:48

Wenn ich das Macro abspielen möchte, sagt er: Laufzeitenfehler'1004' Anwendungs-oder objektdefinierter Fehler


Bild


Betrifft: AW: was funzt nicht?????????__ot
von: chris
Geschrieben am: 26.09.2003 10:15:20

Hallo poste mal den code ich habe es gerade selbst aufgezeichnet bei mir geht es einwandfrei

Range("A1:C2").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet3!R1C1:R2C3").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("dsasd")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("dsad")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("ad"), "Summe von ad", xlSum
End Sub


Gruß
Chrstian


Bild


Betrifft: AW: was funzt nicht?????????__ot
von: Lydia Reich
Geschrieben am: 26.09.2003 10:40:24

Das ganze soll endgültig so aussehen, wie bei Tabellenblatt Global


Sub Pivot()
' Pivot Makro
' Makro am 26.09.2003 von Reich Lydia aufgezeichnet
' Tastenkombination: Strg+w
Columns("E:K").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Global!C5:C11").CreatePivotTable TableDestination:= _
"[Textezuundabflüsse.xls]Global!C13:C26", TableName:="PivotTable3", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTable3").AddFields RowFields:="SecName"
With ActiveSheet.PivotTables("PivotTable3").PivotFields("% FV")
.Orientation = xlDataField
.Caption = "Summe von % FV"
.

Function = xlSum
.NumberFormat = "0,00%"
End With
ActiveWorkbook.ShowPivotTableFieldList = True
End Sub



Bild


Betrifft: hmmm
von: chris
Geschrieben am: 26.09.2003 11:06:22



Hi
warum spalte e:k ?

bereich geht nur von c5:c11

willst du einen dynamischen bereich?
das geht nicht mit aufzeichnen!!

pivottabelle3 voricht wenn es die schon gibt

da haste mehrere Fehlermöglichkeiten

wenn du einen dynamischen bereich für deine pivot willst

http://spotlight.de/zforen/amse/m/amse-1024296441-17708.html
schau dir das mal an

diesen namen setzt du dan in deiner aufzeichnung ein

Gruß
Christian


Bild


Betrifft: AW: hmmm
von: lydia
Geschrieben am: 26.09.2003 11:20:34

ahhh ... danke ... das wird es sein ... will dynamischen bereich ... danke werde es ausprobieren ...


 Bild

Excel-Beispiele zum Thema " Macro+Pivot Tabelle"

Suche über mehrere Tabellen download Benennen von Tabellenblättern mit Monatsnamen download
Druckseitenlinien im Tabellenblatt download Tabellenblattnamen in ein Listenfeld einlesen download
Suchbegriff über mehrere Tabellenblätter suchen. download Tabellenblätter benennen download
Tabellenblatt auswählen download Zustand von Tabellenblatt-Checkboxes ermitteln download
Tabellenblattnamen der VBE-Projekte ändern download Tabellenblattnamen nach Datum download
Gefilterte Daten in neues Tabellenblatt übertragen download Zeichentabelle StandBy download
Wochentage Mo - Fr in Tabelle eintragen download Mehrmals vorkommende Werte in neues Tabellenblatt download
Kommentare in geschützte Tabellen einfügen download Tabellen vergleichen download
Grafiken im Tabellenblatt ordnen download Einzelnes Tabellenblatt speichern download
Tabellenblattnamen in eine ListBox einlesen download Tabellenblätter in umgekehrter Reihenfolge drucken download
Anwendername in Tabellenblatt eintragen download Arbeitszeittabelle und SVERWEIS-Formel download
Druck aus mehreren Tabellenblättern auf eine Druckseite download Daten von Tabelle1 auf Tabelle2 übertragen download
Zwei Tabellen wechselseitig ändern download Wert in Tabelle suchen und in UserForm ausgeben download
Tabellen hinzufügen und sortieren download Tabellenvergleich und Übernahme der Doppel download
Fußballtabelle aktualisieren download Termine in Jahrestabelle eintragen download
Tabellencode nach Kopieren des Blattes löschen download Tabellenblatt in UserForm download
Nach Eingabe Werte aus Tabellen Übernehmen download Errechnung von Schulnoten anhand einer Punktetabelle download
Fußballergebnisse in Tabelle eintragen und zu HTML konvertieren download Tabelle vor der Bearbeitung schützen download
Geburtstage eines vorzugebenden Monats in neue Tabelle download Dateinamen in Tabelle einlesen download
Übernahme von Werten mit "x" in eine zweite Tabelle download Letztes Speicherdatum in die Fußzeile aller Tabellenblätter download
Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern download Den selben Bereichsnamen in mehreren Tabellenblättern download
Textdatei in Tabellenblatt importieren download Tabellen hinzufügen und mit Namen aus einer Liste belegen download
Einzelnes Tabellenblatt unter Tagesdatum speichern download Dateien einer Ordnerliste in einer Tabelle zusammenstellen download
Tabellen für die Werktage eines Monats erstellen download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Tabellenblattbereich als Email versenden download Daten in jeweils einer Spalte zweier Tabellen vergleichen download