Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivottabellen ohne Activate oder Select

Forumthread: Pivottabellen ohne Activate oder Select

Pivottabellen ohne Activate oder Select
25.05.2007 14:39:59
Friedbert
Liebe Excelianer,
ich puzzle wieder mal an einem Problem mit Pivottabellen:
Kann man mit VBA Pivottabellen erstellen, ohne die Ausgangstabelle aktiviert bzw. selektiert zu haben.
Ich danke Euch für Eure Unterstützung
und verbleibe
mit besten Wünschen für ein schönes Pfingstfest
Friedbert

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Pivottabellen ohne Activate oder Select
25.05.2007 16:37:29
Beate
Hallo,
klar geht das. Hier ein kleines Beispiel. Links siehst du die Ausgangstabelle und rechts die daraus erzeugt Pivottabelle:
 ABCDE
1KundeUmsatz Summe von Umsatz 
2AA150,00 KundeSumme
3BB200,00 AA200
4CC175,00 BB200
5AA50,00 CC245
6CC70,00 Gesamtergebnis645

Der Code lautet dann so (ist aufgezeichnet und nachbearbeitet):
Sub Pivot_erstellen_ohne_Select()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    "Tabelle1!R1C1:R6C2").CreatePivotTable TableDestination:= _
    "Tabelle1!R1C4", TableName:="PivotTable1", DefaultVersion:= _
    xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Kunde"
ActiveSheet.PivotTables("PivotTable1").PivotFields("Umsatz").Orientation = _
    xlDataField
End Sub
Die wichtige Stelle im Code ist also in Bezug auf deine Frage die SourceData:= "Tabelle1!R1C1:R6C2"
Gruß,
Beate

Anzeige
AW: Pivottabellen ohne Activate oder Select
29.05.2007 13:10:16
Friedbert
Hallo Beate!
Vielen Dank für die Unterstützung!
Code funktioniert perfekt!
Gruß
Friedbert

AW: Pivottabellen ohne Activate oder Select
25.05.2007 16:39:01
Rolf
Hallo Friedbert,
die "Texte" musst du natürlich anpassen.
fG
Rolf

Sub makepivot()
Dim sourceRange As Range
Dim pt As PivotTable
Set sourceRange = Sheets("Tabelle1").Range("A1").CurrentRegion
Set pt = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=sourceRange) _
.CreatePivotTable(Sheets("Tabelle2").Range("A1"))
pt.AddFields RowFields:="Konto"
pt.PivotFields("Betrag").Orientation = xlDataField
End Sub


Anzeige
AW: Pivottabellen ohne Activate oder Select
29.05.2007 13:09:08
Friedbert
Hallo Rolf!
Vielen Dank für die Unterstützung!
Code läuft perfekt!
Gruß
Friedbert
;

Forumthreads zu verwandten Themen

Artikel-Summen ohne Pivot-Tabelle?
Ulrich

Hallo zusammen,
ich habe eine lange Liste mit Artikeln und deren Verkaufzahlen (auch jede Menge doppelte).
Kann ich Summen der Verkaufszahlen nach Artikel-Nummer bilden ohne Privot-Tabelle? Mit SVerweis kriege ich ja jeweils nur den ersten Artikel...
Danke im Voraus und Grüße,
...
01.09.2008 11:36:00
Thread-ID: 1006380
3 Beiträge
Pivot Tabellen Elemente anzeigen
thomas

Hallo,
hat einer von euch ein Beispiel für die Funktion "Ausgeblendete Elemente in Gruppierungsfunktionen anzeigen" in Pivottabellen. Ich schaffe es nicht das Icon zu aktivieren bzw. die Funktion zu nutzen
Ich krieg es auch nicht hin die Auswirkungen der Option "Elemente ohne Daten anze...
02.12.2008 14:46:51
Thread-ID: 1029521
3 Beiträge
Pivottabelle / Summen-/Produktbildung
Bernd

Hallo,
ich habe ich ein wenig in Pivottabellen eingearbeitet und habe folgende Frage anhand beigefügter Musterdatei:
Die Datei https://www.herber.de/bbs/user/59628.xls wurde aus Datenschutzgründen gelöscht
Ich würde gerne das Produkt aus Volumen 1 und Volumen 2 pro Artikel zuerst z...
20.02.2009 15:26:00
Thread-ID: 1052477
3 Beiträge
Pivottabelle - ohne Doppelte
Max

Hallo Excel-Experten,
stehe vor einem Rätsel. Ich habe eine Liste, wo auch Zahlen doppelt vorkommen.
Jetzt dachte ich, dass ich über eine Pivottabelle die Anzahl (ohne Doppellte) rausbekomme.
Beispiel:
1
1
1
2
4
Das wäre die Anzahl 3 (1, 2 , 4). Der Rest ist...
20.05.2009 21:34:35
Thread-ID: 1076500
9 Beiträge
Pivotchart - Datentabellen- Summe
Jemp

Hallo alle zusammen.
Ich habe eine Pivot chart erstellt wo untendrunter die Datentabelle sichtbar ist.
Gibt es eine Möglichkeit in dieser Datentabelle. die Summierung mit anzuzeigen sowie sie auch auf der einzelen Pivottabelle angezeigt werden
Vielen Dank
Jemp
25.05.2009 12:28:21
Thread-ID: 1077123
2 Beiträge
Pivottab: Werte als % anzeigen
André

Moin zusammen,
ich habe hier ein kleines Verständnisproblem bei einer Pivot-Tabelle. Muß dazu sagen, daß ich Pivottabellen bisher nur selten verwendet habe.
Die Pivottabelle hat mehrere Spalten, darunter z.B. Verkaufspreis und Rohertrag. Diese beiden Spalten sind jeweils in Euro die Sum...
10.06.2009 15:35:59
Thread-ID: 1080522
7 Beiträge
Fehler Pivotfield "Summe/Anzahl"
Florian

Hallo Excelgemeinde!
Per Makro erstelle ich diverse Pivottabellen, und immer wieder plagt mich derselbe Fehler: will ich z.B. die Anzeige auf Summe stellen, so muss ich das entsprechende Pivotfeld über PivotFields("Sum of [Spaltenname]") oder PivotFields("Anzahl of [Spaltenname]") anspreche...
26.06.2009 10:31:43
Thread-ID: 1084433
4 Beiträge
Excel Pivottabelle Teilergebnisse
Andreas

Hallo Zusammen,
ich habe eine Pivottabelle erstellt, in der aktuell die Teilergebnisse ausgeblendet sind. Gibt es eine Möglichkeit die Teilergebnisse in der Spalte neben den Einzelwerten anzeigen zu lassen?
BSP:
Rubrik1-
----Karton 7
----Tasche 2----Summe Rubrik1: 9
Rubr...
27.07.2009 13:49:31
Thread-ID: 1091598
7 Beiträge
Pivot Tabelle Pad ändern
Stu

Hallo,
ich habe in einer Exceldatei "1" eine Pivottabelle, die auf Daten einer anderen Exceldatei "2" (mehrere Tabellenblätter) zurückgreift. Nun hat sich der Name der Datei "2" in "3" geändert. Da sich der Pfad der Verknüpfung nicht automatisch anpasst, möchte ich den gerne manuelle ändern...
30.11.2009 17:45:11
Thread-ID: 1121049
8 Beiträge
Pivot Tabellen Bestwerte anzeigen
Friedhelm

Hallo,
ich habe eine Tabelle mit Ergebnissen von Läufern und möchte in den Altergruppen und den verschiedenen Laufstrecken die Bestzeiten der Läufer darstellen.
Als Beispiel habe ich eine Tabelle beigefügt, die soweit den Pivot Auszug darstellt. Hier möchte ich in den Lauflängen nur die...
13.09.2010 11:02:06
Thread-ID: 1177216
8 Beiträge
Pivot Tabelle Gesamtergebnis nicht anzeigen
Annette

Hallo,
Ich möchte das Gesamtergebnis der Pivot Tabelle nicht anzeigen lassen.
Wie geht das?
Grüße
Annette
12.06.2011 14:39:40
Thread-ID: 1218212
3 Beiträge
Anzeige
Quellbereich von Pivottabellen per VBA ändern
Pivottabellen

Hallo,
gibt es eine Möglichkeit die Bereichsangabe der Quelldaten aller Pivottabellen in einer Arbeitsmappe
per VBA automatisiert umzustellen?
Vorher: "Eingabe!$A$10:$AB$1108", also mit absoluten Zellbezügen
Nachher: "=Eingabebereich" , also mit Angabe des vor...
04.08.2011 12:41:34
Thread-ID: 1224843
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige