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

Beiträge aus den Excel-Beispielen zum Thema " Macro+Pivot Tabelle"