Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

XLS 2007 und Makro für Pivottabelle

XLS 2007 und Makro für Pivottabelle
09.09.2013 09:10:38
Rainer
Hallo!
Ich habe wiederkehrend die Aufgabe, eine Liste auszuwerten, die jedes mal unterschiedlich viele Zeilen haben kann (Spalten sind IMMER gleich)
Ich dachte hier an ein Makro, das ich per Button aufrufen kann und das mit die Povittabelle _
erzeugt. Als Basis wollte ich mit einer ganz einfachen Datei anfangen, um zu verstehen, wie _
EXCEL hier arbeitet. Dazu habe ich per Rekorder diesen Code aufgezeichnet. 

Sub Makro1()
' Makro1 Makro
Range("A1:B11").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!Z1S1:Z11S2", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Tabelle4!Z3S1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion10
Sheets("Tabelle4").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Name")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("wert"), "Summe von wert", xlSum
ActiveSheet.PivotTables("PivotTable1").PivotFields("Name").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
End Sub

Danach habe ich dann die Pivottabelle udn das Blatt der Pivottabelle gelöscht und das Makros zum testen nochmal gestartet.
Es kommt dann die Fehlermeldung:
Ungültiger Prozeduraufruf oder ungültiges Argument
an dieser Stelle
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!Z1S1:Z11S2", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Tabelle4!Z3S1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion10
Was ist denn hier falsch bzw wo habe ich meinen Denkfehler?
Danke für Eure Rückmeldungen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: XLS 2007 und Makro für Pivottabelle
09.09.2013 09:24:17
selli
hallo rainer,
kurze zwischenfrage zum verständnis.
wozu ist es nötig die bestehende pivot zu löschen und anschl. wieder neu zu erstellen?
eine aktuallisierung der pivot sollte doch auch den gewünschten effekt bringen.
das wäre so, als würdest du ein auto kaufen, damit fahren, es wieder verkaufen und wenn du wieder fahren möchtest, kaufst du wieder eins usw. (naja, hinkt etwas, aber so in etwa. du weißt, was ich meine)
gruß
selli

AW: XLS 2007 und Makro für Pivottabelle
09.09.2013 09:32:10
Rainer
Hallo!
Du hast natürlich Recht, allerdings ist es so, dass die Datenbasis der Pivottabelle asu Downloads aus SAP entsteht. In einer Datei sollen mehrere Basistabellen in Pivots abgebildet werden. Pro Kunde gibt es eine datei, pro Projekt eine Basistabelle. Das bedeutet auch, dass ich bei einem anderen Kunden (=neue Datei) eine andere Anzahl von Basistabellen haben kann. Damit scheidet die Lösung aus, eine vorbereitete Datei zu haben und lediglich die Pivot zu aktualisieren.
Deswegen dachte ich an eine Datei, in der ich ein Makro zum anlegen der Pivottabelle hinterlege. Wir erzeugen dann die Blätter mit den Basisdaten je nach Bedarf und rufen pro Blatt das Makro auf. In der richtigen Datei sind es bestimmt ca 10 Felder in der Pivottabelle und es ich seht lästig, immer wieder dieselben Formatierungen zu machen z.B. Summenstufen ausschalten.

Anzeige
AW: XLS 2007 und Makro für Pivottabelle
09.09.2013 10:19:53
Rainer
Hallo:
Habe eine Lösung in diesem Stil gefunden
Sub test1()
Range("A1:B11").Select
' Sheets.Add
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!Z1S1:Z11S2").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable4"
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Name")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables( _
"PivotTable4").PivotFields("wert"), "Summe von wert", xlSum
ActiveSheet.PivotTables("PivotTable1").PivotFields("Name").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
End Sub
Trotzdem Danke an alle, die sich das Thema angesehen hatten

Anzeige
AW: XLS 2007 und Makro für Pivottabelle
09.09.2013 10:53:22
fcs
Hallo Rainer,
dein 1. Problem: Name der Zieltabelle
Jedesmal wenn du das Makroneustartest erstellt Excel eine neue Tabelle mit einem anderen Registernamen.
Deshalb muss der Blattname im Code variabel eingebaut werden.
dein 2. Problem: Schreibweise des Bezugs für die SourceData
Der Makrorekorder hat bei dir "Tabelle1!Z1S1:Z13S2" aufgezeichnet.
Ich weiss nicht, ob es hier noch Versions-Unterschiede gibt. Bei mir unter Excel 2010 funktioniert es nur, wenn der Bezug in US-Englisch R1C1 geschrieben wird = "Tabelle1!R1C1:R13C2".
Ich hab dein Makro mal so angepasst, dass es bei mir funktioniert.
Dabei habe ich der besseren Übersicht wegen Objekt-Variablen für die Tabellenblätter und den Pivotbericht gesetzt. Die Ermittlung der letzten Zeile mit Daten hab ich auch beispielhaft integriert.
Gruß
Franz 
Sub Make_Pivot_1()
' Pivottabellenbericht erstellen auf Daten im aktiven Tabellenblatt
Dim wks As Worksheet
Dim ZeileLetzte As Long, ZeileTitel As Long
Dim SpalteLetzte As Long, Spalte_1 As Long
Dim wksPivot As Worksheet, pvTab As PivotTable
Dim strSourceData As String
Set wks = ActiveSheet
'Bereich mit Datenquelle für Pivot festlegen/ermitteln
With wks
ZeileTitel = 1 'Zeile mit den Spaltentiteln
Spalte_1 = 1   '1. Spalte der Datenquelle des Pivotbeichts
'Letzte Zeile mit Daten in Spalte "Name" - Spalte A bzw. 1
ZeileLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
'Letzte Spalte in Titelzeile mit Zelleintrag - kannst du natürlich auch fest vorgeben
SpalteLetzte = .Cells(ZeileTitel, .Columns.Count).End(xlToLeft).Column
'Sourcedata-Text ermitteln - "'" zwingend erforderlich, wenn Blattname _
Leerzeichen oder Sonderzeichen enthält, oder nummerisch ist
'hier sind ggf. Anpassungen erforderlich, wenn in verwendeter Excel-Version _
die Schreibweise des Zellbezugs anders ist.
'Zellbezug in R1C1-Schreibweise
strSourceData = "'" & .Name & "'!" & .Range(.Cells(ZeileTitel, Spalte_1), _
.Cells(ZeileLetzte, SpalteLetzte)).Address(ReferenceStyle:=xlR1C1)
'Zellbezug in localer R1C1-Schreibweise = Z1S1 in DE-Version
'    strSourceData = "'" & .Name & "'!" & .Range(.Cells(ZeileTitel, Spalte_1), _
.Cells(ZeileLetzte, SpalteLetzte)).AddressLocal(ReferenceStyle:=xlR1C1)
'Zellbezug in A1-Schreibweise
'    strSourceData = "'" & .Name & "'!" & .Range(.Cells(ZeileTitel, Spalte_1), _
.Cells(ZeileLetzte, SpalteLetzte)).Address(ReferenceStyle:=xlA1)
'    MsgBox "Pivot-SourceData: " & strSourceData, , "Pivot-Erstellen" 'Testzeile
End With
'neues Blatt für Pivotbericht rechts von Daten-Tabelle einfügen
Sheets.Add After:=wks
Set wksPivot = ActiveSheet
'  wksPivot.Name = wks.Name & "Pivot"
'Neuen Pivotberich ab Zelle A3 einfügen
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=strSourceData, Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="'" & wksPivot.Name & "'!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion10
Set pvTab = wksPivot.PivotTables(1) 'hier Index-Nr. statt Name verwenden!
With pvTab.PivotFields("Name")
.Orientation = xlRowField
.Position = 1
End With
pvTab.AddDataField pvTab.PivotFields("wert"), "Summe von wert", xlSum
pvTab.PivotFields("Name").Subtotals = Array(False, False, False, False, False, _
False, False, False, False, False, False, False)
'objekt-Variablen zurücksetzen
Set wks = Nothing: Set wksPivot = Nothing: Set pvTab = Nothing
End Sub

Anzeige

303 Forumthreads zu ähnlichen Themen

VBA: Alle PivotItems ausblenden
Daniel

Hallo Profis,
wie kann ich per VBA alle PivotItems einer Pivot-Tabelle ausblenden lassen?
Vielen Dank schon einmal.
Daniel
11.09.2008 13:42:00
Thread-ID: 1009110
2 Beiträge
Anzeige
Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Pivot automatisch aktualisieren
Tina

Hallo,
ich möchte ein Pivot Table automatisch aktualisieren lassen. Das Table befindet sich allerdings auf dem gleichen Sheet wie die Daten und da komme ich nicht weiter.
Kann mir jemand einfach, aber effektiv helfen?
30.10.2008 10:47:38
Thread-ID: 1020519
3 Beiträge
Anzeige
Makro zerschießt die Pivottabelle
J.


Hallo zusammen,
ich habe ein Makro programmiert, das Anfangs gut funktionierte.
Und zwar habe ich ein Tabellenblatt erstellt inkl. einer Pivottabelle. Durch Auswahl einer DropandDown-Liste werden automatisch andere Daten gezogen.
Nun habe ich eine Makro geschrieben, bei dem aut...
22.01.2009 16:15:40
Thread-ID: 1042685
7 Beiträge
alle Pivottabellen in Datei aktualisieren
Julia

Hallo hab folgendes Makro
Sub Pivot() ' Pivot Makro ' Makro am 25.02.2009 von mir aufgezeichnet Sheets("Pivot1").Select Range("A8").Select ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh Sheets("Pivot2").Select Range("A7").Select ActiveSheet.PivotTables("PivotTable4").PivotCach...
26.02.2009 11:08:37
Thread-ID: 1054274
2 Beiträge
Pivot Tabellen aktualisieren
Frank

Hallo zusammen!
In einer Excel-Arbeitsmappe habe ich auf unterschiedlichen Arbeitsblättern Pivot-Tabellen, die sich alle auf den selben Datenberiech beziehen. Nach Änderung von Daten im Datenbereich würde ich gern auf Knopfdruck alle Pivottabellen auf einmal aktualiesieren. Wie ist das mögl...
08.04.2009 15:29:29
Thread-ID: 1067758
3 Beiträge
Pivottabelle aktualisieren wenn externe Daten aktu
Johannes

Hallo,
ich hab eine Excellmappe in der viele externe CVS's als externe Daten referenziert werden und beim Start automatisch aktualisiert werden. in der selben Mappe sind auch einige Pivottabellen, die beim Öffnen automatisch aktualisiert werden. Leider klappt das oftmals nicht. Gibt es ein...
29.06.2009 12:42:23
Thread-ID: 1085099
7 Beiträge
VBA-Funktion in Pivot-Tabelle
Ziegenpeter

Hallo Zusammen!
Vielleicht kann mir jemand bei folgendem Problem helfen:
Ich habe per VBA eine Funktion namens Sigma() geschrieben. Sie funktioniert problemlos. Nun will ich diese Funktion auch in einer Pivot-Tabelle nutzen, das funktioniert nicht.
Beispiel:
Das einzufügende ber...
10.09.2009 20:19:28
Thread-ID: 1101842
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
1
2
1
6
1
2
6
2
2
2
7
1
2
1
4
3
2
4
1
1
3
3
3