Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1076to1080
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
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot-Gruppierung: nur Teil anzeigen

Pivot-Gruppierung: nur Teil anzeigen
03.06.2009 08:37:35
Florian
Hallo Forumgemeinde!
hab mal wieder eine Frage an Euch:
Untenstehender Code generiert eine Pivottabelle, wobei Spalte 30 (in der Pivottabelle also ".PivotFields(30)") sich auf ein Datum bezieht, welches in der Tabelle nach jahr und Monat gruppiert wird. Wie lautet nun die Codezeile, um nur bestimmte Teile der Gruppierung (z.B. alle ab Mai 2005) sichtbar zu machen? Mit dem Recorder komm ich nicht weiter, da der nur alle Items einzeln anspricht.
Super, wenn mir jemand helfen könnte!
Gruss
Florian

Sub Stat_gruppierung()
Set DatenDatei = ThisWorkbook
Set DatenSheet = DatenDatei.Sheets("Daten")
'   Add StatTilSheet
Set StatTilSheet = DatenDatei.Worksheets.Add
ActiveSheet.Name = "StatTil"
LastRowDaten = DatenSheet.Cells(Rows.Count, 1).End(xlUp).Row - Not IsEmpty(DatenSheet.Cells( _
Rows.Count, 1).End(xlUp)) - 1
Set PTCache = DatenDatei.PivotCaches.Add _
(SourceType:=xlDatabase, SourceData:=DatenSheet.Range(DatenSheet.Cells(3, 1),  _
DatenSheet.Cells(LastRowDaten, 73)))
Set PT = PTCache.CreatePivotTable _
(tabledestination:=StatTilSheet.Cells(6, 2), tablename:="Pivottable1")
With PT
.PivotFields(13).Orientation = xlPageField
.PivotFields(30).Orientation = xlRowField   'Datum
.PivotFields(19).Orientation = xlColumnField
.PivotFields(1).Orientation = xlDataField
.PivotFields("Sum av OrdNr").


Function = xlCount
End With
Range("B19").Group Start:=True, End:=True, Periods:=Array(False, False, False, _
False, True, False, True)
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot-Gruppierung: nur Teil anzeigen
03.06.2009 14:33:33
fcs
Hallo Florian,
der entsprechende Code sollte inklusive Eingabe von Start und Ende-Datum wie folgt aussehen.
Im Anschluß noch die von mir getestete Prozedur mit einem Feld Namens "Datum" in der Datenquelle.
Gruß
Franz

Sub Stat_gruppierung()
Dim PT As PivotTable, PTCache As PivotCache
Dim DatenDatei As Workbook, DatenSheet As Worksheet, StatTilSheet As Worksheet
Dim pvField As PivotField
Dim datStart As Date, datEnde As Date
Dim LastRowDaten As Long
Set DatenDatei = ThisWorkbook
Set DatenSheet = DatenDatei.Sheets("Daten")
'   Add StatTilSheet
Set StatTilSheet = DatenDatei.Worksheets.Add
ActiveSheet.Name = "StatTil"
LastRowDaten = DatenSheet.Cells(Rows.Count, 1).End(xlUp).Row - _
Not IsEmpty(DatenSheet.Cells(Rows.Count, 1).End(xlUp)) - 1
Set PTCache = DatenDatei.PivotCaches.Add _
(SourceType:=xlDatabase, SourceData:=DatenSheet.Range(DatenSheet.Cells(3, 1), _
DatenSheet.Cells(LastRowDaten, 73)))
Set PT = PTCache.CreatePivotTable _
(tabledestination:=StatTilSheet.Cells(6, 2), tablename:="Pivottable1")
With PT
.PivotFields(13).Orientation = xlPageField
.PivotFields(30).Orientation = xlRowField   'Datum
.PivotFields(19).Orientation = xlColumnField
.PivotFields(1).Orientation = xlDataField
.PivotFields("Sum av OrdNr").Function = xlCount
Set pvField = .PivotFields(30) 'Datum
End With
'Startdatum eingeben
datStart = Application.InputBox(Prompt:="Stardatum für Pivotbericht", _
Title:="Pivottabelle gruppieren", _
Default:=Format(Date, "MM.DD.YYYY"), _
Type:=1)
If datStart = 0 Then Exit Sub 'Abbrechen in Eingabe
'Endedatum eingeben
datEnde = Application.InputBox(Prompt:="Stardatum für Pivotbericht", _
Title:="Pivottabelle gruppieren", _
Default:=Format(Date, "MM.DD.YYYY"), _
Type:=1)
If datEnde = 0 Then Exit Sub 'Abbrechen in Eingabe
'Gruppieren Datum nach Jahren und Monaten
With pvField
.LabelRange.Group Start:=datStart, End:=datEnde, Periods:=Array(False, False, False _
, False, True, False, True)
End With
'Kleinere und größere Datums-Werte ausblenden
With PT.PivotFields("Jahre")
.PivotItems("" & datEnde).Visible = False
End With
End Sub
'getestetes Beispiel
Sub Makro1()
' Erstellt unter Excel 2003
'Gruppieren des Feldes "Datum" in Pivottabelle mit Start- und Enddatum
Dim pvTab As PivotTable
Dim pvField As PivotField
Dim datStart As Date, datEnde As Date
Set pvTab = Worksheets("Tabelle1").PivotTables(1)
Set pvField = pvTab.PivotFields("Datum")
datStart = Application.InputBox(Prompt:="Stardatum für Pivotbericht", _
Title:="Pivottabelle gruppieren", _
Default:=Format(Date, "MM.DD.YYYY"), _
Type:=1)
If datStart = 0 Then Exit Sub 'Abbrechen in Eingabe
datEnde = Application.InputBox(Prompt:="Stardatum für Pivotbericht", _
Title:="Pivottabelle gruppieren", _
Default:=Format(Date, "MM.DD.YYYY"), _
Type:=1)
If datEnde = 0 Then Exit Sub 'Abbrechen in Eingabe
'Gruppieren nach Jahren und Monaten
With pvField
.LabelRange.Group Start:=datStart, End:=datEnde, Periods:=Array(False, False, False _
, False, True, False, True)
End With
'Kleinere und größere Datums-Werte ausblenden
With pvTab.PivotFields("Jahre")
.PivotItems("" & datEnde).Visible = False
End With
End Sub


Anzeige
AW: Pivot-Gruppierung: nur Teil anzeigen
03.06.2009 15:07:25
Florian
Hi Franz!!
Spitzensache. Funktioniert!!
Gruss Florian

304 Forumthreads zu ähnlichen Themen

Pivot berechnetes Feld
Peter

Hallöchen zusammen,
entweder stelle ich mich zu dämlich an, oder ich kapiere die Pivot wirklich nicht.
Habe eine Tabelle, aus der ich mir die Daten ziehe.
In die Datenfelder der Pivot kommt die gesamte Anzahl von Datensätzen.
In die Spaltenfelder die Differenzierung eines bestim...
15.08.2008 10:34:52
Thread-ID: 1002088
4 Beiträge
Anzeige
Pivot Bericht nur Leer - Felder anzeigen
Karsten

Hallo Liebe Excel Freunde,
Ich möchte gern nach Aktualisierung einer Pivotabelle in einer bestimmen Spalte nur die Leerfelder anzeigen.
Mit dem Macro- Recorder funktioniert das nicht richtig, wenn man dies per Hand durchführt, muss man sich nach der Aktualisierung erst alle Felder anze...
13.01.2009 14:49:00
Thread-ID: 1039261
7 Beiträge
Pivot-Tabelle: berechnetes Feld ?!
André

Moin zusammen,
ich habe mal wieder ein Problem mit einer Pivot-Tabelle. Es ist nicht ganz einfach zu beschreiben, aber ich versuche es mal.
In einer Liste habe ich Datensätze von verkauften Artikeln. Neben einer eindeutigen Käufernummer enthalten die einzelnen Datensätze auch noch Felde...
29.06.2009 14:00:59
Thread-ID: 1085107
12 Beiträge
Anzeige
Pivot - berechnetes Feld
heide_tr

hallo zusammen,
ich habe eine Tabelle mit 3 Spalten: Teilnehmer, Datum1, Datum2.
Die Teilnehmer können beliebig oft vorkommen (Zeilen), die beiden Datumsfelder sind nicht immer gefüllt.
Ich möchte in einer Pivottabelle je Teilnehmer die Anzahl von Datum1 und Datum2 ausweisen. Das fu...
26.11.2009 18:41:34
Thread-ID: 1120340
2 Beiträge
Pivot - berechnetes Feld
heide_tr

hallo zusammen,
ich habe eine Tabelle mit 3 Spalten: Teilnehmer, Datum1, Datum2.
Die Teilnehmer können beliebig oft vorkommen (Zeilen), die beiden Datumsfelder sind nicht immer gefüllt.
Ich möchte in einer Pivottabelle je Teilnehmer die Anzahl von Datum1 und Datum2 ausweisen. Das fu...
26.11.2009 18:29:44
Thread-ID: 1120341
2 Beiträge
Pivot - berechnetes Feld
heide_tr

hallo zusammen,
ich habe eine Tabelle mit 3 Spalten: Teilnehmer, Datum1, Datum2.
Die Teilnehmer können beliebig oft vorkommen (Zeilen), die beiden Datumsfelder sind nicht immer gefüllt.
Ich möchte in einer Pivottabelle je Teilnehmer die Anzahl von Datum1 und Datum2 ausweisen. Das fu...
27.11.2009 02:17:34
Thread-ID: 1120342
5 Beiträge
Pivot: berechnetes Feld klemmt
Mike


Hallo Cracks,
in einer CD-Auswertung soll eine durchschnittliche <b>Berechnung</b>
eingefügt werden -> Gespielt / Anzahl Titel (orange im Beispiel).
https://www.herber.de/bbs/user/66976.xls
Die Anzahl Titel lassen sich schnell bilden, doch mit diesem Feld ka...
04.01.2010 15:09:49
Thread-ID: 1127062
6 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

Links zu Excel-Dialogen

Label InputBox

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
3
2
6
11
9
1
1
4
5
2
12
14
7
1
4
2
2
7
4
9
7
2
1
5
4