Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1148to1152
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
Inhaltsverzeichnis

Nullwerte in Pivottabellen

Nullwerte in Pivottabellen
Dirk
Hallo Forum,
gibt es eine Möglichkeit Nullwerte in Pivottabellen auszublenden?
Vielen Dank und Gruß aus Hannover
Dirk

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

Betreff
Benutzer
Anzeige
AW: Nullwerte in Pivottabellen
14.04.2010 11:03:05
Rudi
Hallo,
benutzerdef. Zahlenformat z.B. 0,00;-0,00;""
Gruß
Rudi
AW: Nullwerte in Pivottabellen
14.04.2010 11:29:57
Dirk
Hallo Rudi,
das verstehe ich irgendwie nicht. Ich habe in meiner Pivottabelle bspw. €-Werte stehen, die ich auch so belassen möchte. Nun habe ich Zeilen, in denen stehen nur Nullwerte drin. Auf diese Zeilen möchte ich der Übersichtlichkeit halber verzichten. Ich möchte also nicht nur an irgendeiner Stelle "nichts" anstatt eine "0" stehen haben, sondern die gesamte Zeile ausblenden.
Konnte ich mich verständlich machen.. :-) Oder habe ich Dich nicht verstanden?
Gruß
Dirk
AW: Nullwerte in Pivottabellen
14.04.2010 16:15:36
fcs
Hallo Dirk,
da gibt es meines Wissens keine Möglichkeit . Es sei denn du kannst die 0-Zeilen durch einen Filter in einem Reihenfeld ausblenden. 0 ist für Excel eben auch ein Summenergebnis
Ansonsten bleibt Handarbeit oder Verwendung der nachfolgenden Makros.
Gruß
Franz
Sub Pivot_0_Zeilen_ausblenden()
Dim pvTab As PivotTable, rRow As Range
Set pvTab = ActiveSheet.PivotTables(1)
For Each rRow In pvTab.DataBodyRange.Rows
'MsgBox rRow.Address & "   " & Application.WorksheetFunction.Sum(rRow)
If Application.WorksheetFunction.Sum(rRow) = 0 Then rRow.EntireRow.Hidden = True
Next
End Sub
Sub Pivot_0_Zeilen_einblenden()
Dim pvTab As PivotTable, rRow As Range
Set pvTab = ActiveSheet.PivotTables(1)
For Each rRow In pvTab.DataBodyRange.Rows
If Application.WorksheetFunction.Sum(rRow) = 0 Then rRow.EntireRow.Hidden = False
Next
End Sub

Anzeige
falsch verstanden owT
14.04.2010 12:30:20
Rudi

327 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige