Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1564to1568
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
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Pivottabelle erstellen, Name ansteuern

VBA Pivottabelle erstellen, Name ansteuern
14.06.2017 21:18:27
Dennis24
Hallo,
nach langen Recherchen kann ich jetzt über PivotTableWizard aus einer Datentabelle heraus eine Pivottabelle per VBA erstellen. Allerdings schaffe ich es nicht die Pivot auf einem bestehende Tabellenblatt ("Test") ab Zelle A3 zu erzeugen.
Dies ist Problem 1.
Umgangen habe ich es derzeit, dass ich die Pivot nach dem erstellen in das Tabellenblatt ("Test") verschiebe. Allerdings weist die Syntax PivotTable("PivotTable13") auf und das Tabellenblatt steht mittlerweile bei Tabelle22. Gibt es einen Code, mit dem ich die Pivottabelle oder das Tabellenblatt ansteuern kann? Die Zahlen werden von Excel nach jeder Prozedur neu vergeben.
Vielen Dank im Voraus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Pivottabelle erstellen, Name ansteuern
15.06.2017 14:06:20
Markus
Hallo Dennis24,
versuch doch mal alles mit dem Rekorder zu machen.
Rekorder starten und dann markieren, Tabelle erstellen direkt in „Test“ auf A3 dann glaub ich hast Du alles was Du willst, wenn ich Dich richtig verstanden habe.
Gruß
Markus
AW: VBA Pivottabelle erstellen, Name ansteuern
15.06.2017 21:44:27
Dennis24
Hallo Markus,
danke für den Hinweis. Hatte ich versucht, aber der Code lief dann beim ausführen auf eine Fehlermeldung. Die Grunddatentabelle hat unterschiedliche Zeilen und das klappt nicht mit dem aufgezeichneten Code. Deshalb hatte ich die Lösung mit dem PivotTableWizard genommen. Das Erstellen der Pivot klappt prima und zuverlässig. Nur kann ich daran nichts mehr per VBA ändern, da ich weder das Tabellenblatt noch die Pivot ansteuern kann.
Hast Du noch ne andere Idee?
Gruß Dennis
Anzeige
AW: VBA Pivottabelle erstellen, Name ansteuern
15.06.2017 22:05:41
Markus
Hallo,
kannst Du die Datei hochladen?
Gruß
Markus
AW: VBA Pivottabelle erstellen, Name ansteuern
15.06.2017 22:55:38
Dennis24
Hallo,
mit der Datei wird schwierig. Ich kann aber die beiden Codes hochladen. Die Grundtabelle ist einfach. Ich brauche Spalte B als Zeilenwert im Pivot und Spalten K und L sollen summiert im Wetrtebereich stehen.
Mit dem Rekorder habe ich golgenden Code aufgezeichnet:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Grunddaten!R1C1:R" & loletzte & "C13", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Ergebnis!R3C1", TableName:="PivotTable3", _
DefaultVersion:=xlPivotTableVersion15
Sheets("Ergebnis").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable3").PivotFields("SpalteB")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("SpalteK"), "Summe von SpalteK", xlSum
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Summe von SpalteK")
.Caption = "NeuerNameK"
.NumberFormat = "#.##0"
End With
ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("SpalteL"), "Summe von SpalteL", xlSum
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Summe von SpalteL")
.Caption = "NeuerNameL"
.NumberFormat = "#.##0"
End With
---------------
loletzte ist eine Variable, die ich gesetzt habe, damit das Pivot auf die unterschiedliche Zeilenzahl der Grundtabelle reagiert. Der Code funktionierte zunächst. Nachdem ich die Datei dann morgens wieder geöffnet hatte, hatte ich eine Fehlermeldung und das Programm stoppte genau zu Beginn diese Codes.
Deshalb hatte ich diesen Code entwickelt:
Dim objTable As PivotTable, objField As PivotField
ActiveWorkbook.Sheets("Grunddaten").Select
Range("A1").Select
Set objTable = Tabelle2.PivotTableWizard
Set objField = objTable.PivotFields("SpalteB")
objField.Orientation = xlRowField
Set objField = objTable.PivotFields("SpalteK")
objField.Orientation = xlDataField
objField.Function = xlSum
objField.Caption = "NeuerNameK"
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("SpalteL")
objField.Orientation = xlDataField
objField.Function = xlSum
objField.Caption = "NeuerNameL"
objField.NumberFormat = "#,##0"
---------------------
Dieser Code erstellt zuverlässig eine Pivottabelle, nur auf jeweils einem neuen Tabellenblatt. Außerdem kann ich keine Gruppierung in der Pivot machen, da ich sie nicht ansteuern kann (ActiveSheet.PivotTables("PivotTable1").PivotSelect) {der Ausdruck in den Anführungstrichen wird von Excel zwingend gebraucht}
Wo liegt mein Fehler?
Gruß Dennis
Anzeige
AW: VBA Pivottabelle erstellen, Name ansteuern
16.06.2017 11:06:02
Markus
Servus,
ohne die Datei ist es schwierig zu testen weil einiges fehlt, Tabellenblatt usw.
Der Name der Pivot ist auch nur Rätselraten.
Die Datei ohne Deine Werte usw. reicht beim hochladen auch.
Gruß
Markus

329 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
Anzeige

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