Seite 1 von 1 [2 Beiträge im Thema] | Beitrag schreiben | Anfang zurück weiter Ende |
MR-Toolbox - Pivottabellen - farbliche Markierung der Auswahlfelder wenn nicht alle Daten angezeigt werden.
Wenn ich in einer Pivottabelle nicht alle Werte eines Feldes anzeigen lasse kann ich das anschließend nicht erkennen. Bei der Filterfunktion in Excel wird der Pfeil bei aktivem Filter blau statt schwarz angezeigt. Beim Öffnen einer Pivottabelle kann ich also gar nicht erkennen, ob Werte ausgeblendet wurden oder nicht. Ein entsprechendes AddIn wäre hier schon eine tolle Sache. Ein Icon hierfür in der Toolbox wäre mir auch mehr als 5 Euro wert.
Hallo Hr. Mautes,
mit fogendem Makro können Sie die Pivottabelle prüfen.
=> siehe auch angehängte Datei
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Filter_in_Pivottabelle()
Dim Pivottabelle As PivotTable
Dim Pivotfeld As PivotField
Dim Pivot_Item As PivotItem
Dim Kopf As String
Dim Stil As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each Pivottabelle In ActiveSheet.PivotTables
For Each Pivotfeld In Pivottabelle.RowFields
For Each Pivot_Item In Pivotfeld.PivotItems
If Pivot_Item.Visible = False Then
Stil = vbOKOnly + vbExclamation
Kopf = "MR-Toolbox - © by Markus Reichenbach 2006"
MsgBox Pivottabelle & " - Achtung: Filter " & Pivotfeld & " ist aktiv!", Stil, Kopf
Exit Sub
End If
Next Pivot_Item
Next Pivotfeld
Stil = vbOKOnly + vbInformation
Kopf = "MR-Toolbox - © by Markus Reichenbach 2006"
MsgBox Pivottabelle & " ist OK: Daten werden komplett angezeigt", Stil, Kopf
Next Pivottabelle
Application.ScreenUpdating = True
End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Alternativ habe ich das Problem auch per Formel (ohne Makro) in der Datei gelöst
=> siehe angehängte Datei
Dateianlagen:
Pivottabelle_Zeigt_an_ob_Daten_gefiltert_werden.xls (30 kByte)
anzeigen - speichern
Datei wurde schon 286-mal heruntergeladen.