Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
872to876
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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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 Tabelle / beliebige Zwischensummen/Subtotals
Benjamin

Hallo Forum,
ich versuche (und zweifel langsam schon an mir...), in einer Pivot Tabelle beliebige Zwischensummen einzufügen. Der Umgang mit den "normalen" Zwischensummmen ist mir ansonsten geläufig, sprich Zwischensummen unter einer Kategorie...
Ich komme an folgender Stelle nicht weite...
28.01.2010 13:34:36
Thread-ID: 1133552
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
2
2
2
8
1
6
3
6
7
2
5
7
2
4
2
5
3
1
1
8
2
1
7
4
9