Herbers Excel-Forum - das Archiv
Macro+Pivot Tabelle
- Macro+Pivot Tabelle von Reich vom 26.09.2003 10:05:28
- was funzt nicht?????????__ot - von chris am 26.09.2003 10:06:24
- AW: was funzt nicht?????????__ot - von Reich am 26.09.2003 10:10:48
- AW: was funzt nicht?????????__ot - von chris am 26.09.2003 10:15:20
- AW: was funzt nicht?????????__ot - von Lydia Reich am 26.09.2003 10:40:24
- AW: was funzt nicht?????????__ot - von chris am 26.09.2003 10:15:20
- AW: was funzt nicht?????????__ot - von Reich am 26.09.2003 10:10:48
- was funzt nicht?????????__ot - von chris am 26.09.2003 10:06:24
 |
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
 |
Betrifft: was funzt nicht?????????__ot
von: chris
Geschrieben am: 26.09.2003 10:06:24
|
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
|
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
|
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
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
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 ...