Justeel Herren Silber Gold Kreuz Eng...

•  Re: Pivottabellen - farbliche Markierung der Auswahlfelder wenn nicht alle Daten angezeigt werden.  MarkusReichenbach, 14.01.06, 00:00  - drucken - weiterempfehlen

  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
  
  
  

  ---

  Mit freundlichen Grüßen
  
  Markus Reichenbach
  http://www.markus-reichenbach.de
  http://www.mr-toolbox.de

  
  
  Dateianlagen:
  
  Pivottabelle_Zeigt_an_ob_Daten_gefiltert_werden.xls (30 kByte)
  anzeigen - speichern
  Datei wurde schon 296-mal heruntergeladen.

Pivottabellen - farbliche Markierung der Auswahlfelder wenn nicht alle Daten angezeigt werden.  Alfred Mautes, 12.01.06, 22:54
    Re: Pivottabellen - farbliche Markierung der Auswahlfelder wenn nicht alle Daten angezeigt werden.  MarkusReichenbach, 14.01.06, 00:00