Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot Bericht nur Leer - Felder anzeigen

Forumthread: Pivot Bericht nur Leer - Felder anzeigen

Pivot Bericht nur Leer - Felder anzeigen
13.01.2009 14:49:00
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 anzeigen lassen um dann alle Felder wieder abzuwählen um danach nur die Felder mit der Kennzeichnung "Leer" anzeigen zu lassen. Habt Ihr da eine Idee. .. das zu vereinfachen?
Danke Karsten
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot Bericht nur Leer - Felder anzeigen
13.01.2009 16:48:00
fcs
Hallo Karsten,
leider hat Excel-VBA (Version 2003) eine Macke, wenn es darum geht den Visible-Status der Items eines Pivotfeldes auf True zu setzen bzw. alle Items eines Feldes sichtbarzu machen.
Man kann aber die angezeigten Items per Makro ausblenden.
Du muss also manuell alle Daten anzeigen, kannst aber danach per Makro alle Einträge außer "Leer" ausblenden.
Gruß
Franz

Sub test_Feld_Jan()
'Alle Einträge außer Leereinträge des Feldes "Jan" ausblenden
Call NurLeerePivotFeldEintraege(objPT:=ActiveSheet.PivotTables(1), strPivotFeldName:="Jan")
End Sub
Sub test_Feld_A()
'Alle Einträge außer Leereinträge des Feldes "Jan" ausblenden
Call NurLeerePivotFeldEintraege(objPT:=ActiveSheet.PivotTables(1), strPivotFeldName:="A")
End Sub
Sub NurLeerePivotFeldEintraege(objPT As PivotTable, strPivotFeldName As String)
'strPivotFeldName = Name des Pivot-Feldes des Leereinträge angezeigt werden sollen
'objPT = Pivottabelle die bearbeitet werden soll
Dim objPF As PivotField
Dim objPI As PivotItem
On Error GoTo Fehler
Set objPF = objPT.PivotFields(strPivotFeldName)
Application.ScreenUpdating = False
For Each objPI In objPF.VisibleItems
If objPI.Name  "(Leer)" Then objPI.Visible = False
Next
Fehler:
With Err
If .Number  0 Then
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description
End If
End With
Application.ScreenUpdating = True
End Sub


Anzeige
AW: Pivot Bericht nur Leer - Felder anzeigen
13.01.2009 17:57:24
Karsten
Hallo Franz,
leider bleibt er bei der Variablen "NurLeerePivotFeldEintraege" stehen muss man diese vorher noch definieren? Fehler beim Kopilieren Sub oder Funktion nict definiert
Gruß Karsten
AW: Pivot Bericht nur Leer - Felder anzeigen
14.01.2009 11:58:46
fcs
Hallo Karsten,
die Sub "NurLeerePivotFeldEintraege(objPT As PivotTable, strPivotFeldName As String)"
ist die die Sub-Routine, die die eigentliche Aktion ausführt.
Die anderen Subs rufen diese mit den Parametern auf.
Du muss also mindestens folgendes in ein Modul bei dir kopieren:

Sub test_Feld_XYZ()
'Alle Einträge außer Leereinträge des Feldes "XYZ" ausblenden
Call NurLeerePivotFeldEintraege(objPT:=ActiveSheet.PivotTables(1), strPivotFeldName:="XYZ")
End Sub
Sub NurLeerePivotFeldEintraege(objPT As PivotTable, strPivotFeldName As String)
'strPivotFeldName = Name des Pivot-Feldes des Leereinträge angezeigt werden sollen
'objPT = Pivottabelle die bearbeitet werden soll
Dim objPF As PivotField
Dim objPI As PivotItem
On Error GoTo Fehler
Set objPF = objPT.PivotFields(strPivotFeldName)
Application.ScreenUpdating = False
For Each objPI In objPF.VisibleItems
If objPI.Name  "(Leer)" Then objPI.Visible = False
Next
Fehler:
With Err
If .Number  0 Then
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description
End If
End With
Application.ScreenUpdating = True
End Sub


Den Namen des Feldes "XYZ" muss du in der Prozedur "Sub test_Feld_XYZ" entsprechend deiner Pivottabelle anpassen.
Statt "ActiveSheet.PivotTables(1)" kannst du natürlich auch den Tabellennamen in dem die Pivot-Tabelle angelegt ist explizit vorgeben. z.B.:
WorkSheets("Tabelle2").PivotTables(1)
Gruß
Franz

Anzeige
AW: Pivot Bericht nur Leer - Felder anzeigen
15.01.2009 08:46:00
robert
hi karsten,
hätte gerne gewusst, ob mein beitrag vom 13.1.
eventuell in frage kommt
gruß
robert

Forumthreads zu verwandten 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
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
Pivot-Gruppierung: nur Teil anzeigen
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...
03.06.2009 08:37:35
Thread-ID: 1078762
3 Beiträge
Pivottabelle Spalten berechnen
karsten

Hallo Zusammen,
ich habe folg.Frage.:
Ich habe eine Tabelle mit 2 Spalten.
1.Spalte: DATUM
2.Spalte: CODE
DATUM CODE
01.01.2009 A
08.02.2009 M
23.02.2009 C
09.08.2009 F
Wie kann ich in einer Pivottabelle die Datumsangaben bereits in Monaten eingeteilt dar...
23.09.2009 11:15:14
Thread-ID: 1104846
10 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: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
Tage zwischen zwei Datümern auswerten
Reinhard

Hallo Wissende,
in A ist der Starttermin, in C der Endtermin. Beide Spalten benutzerdefiniert so formatiert: TTT, TT.MM.JJJJ
Es können da ja 0-X Tage dazwischenliegen, diese Zahl der dazwischenliegenden Tage möchte ich ermitteln.
Mit Datediff-1 erhalte ich diese Zahl. Diese will ich...
05.03.2010 17:05:03
Thread-ID: 1143798
13 Beiträge
Anzeige
Man MUSS einen von zwei Werten ZUERST bestimmen
zwei

Hallo Leute!
Ich möchte ein Tool bauen, bei dem der User beim Starten in einer leeren Zelle einen von zwei Werten ("Handel" & "Bank") zuerst aus einem Zellendropdown bestimmen MUSS, bevor er irgendwo anders Daten eingeben kann. Hat jemand eine Ahnung, wie ich mit VBA (bescheiden :S) die...
29.06.2010 11:27:40
Thread-ID: 1164503
15 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
Pivottabelle Berechnetes Feld
Markus

Hallo,
ich habe folgendes Problem.
Ich kriegs einfach nicht gebacken. Hoffentlich könnt ihr mir weiter helfen.
Ich habe stark vereinfacht eine Tabelle der Form:
Marke | Kalenderjahr | Umsatz
A KJ2009...
06.11.2010 13:17:51
Thread-ID: 1185358
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige