Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
664to668
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Pivot-Table

VBA Pivot-Table
13.09.2005 14:54:14
Chris
Hallo Zusammen,
mein Problem bezieht sich auf die Pivot-Tables.
Wenn ich ein neues Feld in den Datenbereich ziehe wird manchmal die Summe und manchmal die Anzahl der jeweiligen Kategorie angezeigt. nun meine Frage:
Besteht die Möglichkeit in dem VBA Code zu hinterlegen, dass es immer nur die Summe der Daten im Datenbereich ausgeben soll?
Vielen Dank schon jetzt einmal für die Hilfe
Gruß
Chris

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Pivot-Table
13.09.2005 15:05:05
Rolf
Hallo Chris,
ActiveSheet.Pivottable(1).Datafields(1).Function=xlSum
fG
Rolf
AW: VBA Pivot-Table
13.09.2005 15:25:37
Chris
Hallo Rolf,
Vielen Dank für die schnelle Antwort!
Leider funktioniert das immer noch nicht 100%ig.
Mein Code sieht folgendermaßen aus:
Dim rngRange As Range
Set rngRange = ActiveSheet.Range("A1:AA1101")
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _
SourceData:=rngRange, tabledestination:="", _
tablename:="Menge"
With ActiveSheet.PivotTables("Menge")
.PivotFields("Monat").Orientation = xlRowField
.PivotFields("Schichten").Orientation = xlColumnField
.PivotFields("" & UserForm1.ComboBox1.Value & "").Orientation = xlDataField
'hier lese ich das gewünschte Feld aus einer ComboBox aus
End With
ActiveSheet.PivotTables("Menge").PivotFields("Anzahl von " & UserForm1.ComboBox1.Value & "").Function = xlSum
Leider ist es allerdings nur in manchen Fällen auf "Anzahl von " eingestellt und ohne diesen Zusatz geht es gar nicht.
Könnte mir jemand diesbzgl. weiterhelfen?
Danke
Gruß
Chris
Anzeige
Benötige weitere Hilfe !!!
13.09.2005 15:30:24
Chris
siehe mein letztes Post
AW: VBA Pivot-Table
13.09.2005 17:55:42
Rolf
Hallo Chris,
vielleicht hilft dir das
fG
Rolf

Sub alle_auf_Summe()
Dim df As PivotField
For Each df In ActiveSheet.PivotTables("Menge").DataFields
df.


Function = xlSum
Next
End Sub
AW: VBA Pivot-Table
13.09.2005 18:16:26
Chris
Dank Dir vielmals!!!
Werds mal testen.
Wünsch Dir noch einen schönen Tag
Gruß
Chris

302 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

Links zu Excel-Dialogen

ComboBox UserForm

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