Pivot Filter erkennen?

26/04/2014 - 15:55 von Peter Schuerer | Report spam
Hallo Zusammen,

XL XP.

Google hat leider nicht geholfen.
Wenn ich in einer Tabelle den "Autofilter" verwende, wird der Pfeil und
die Zeilennummern blau und man erkennt den Filter.
Wie erreicht man das bei einer Pivot?

Meine Spaltenüberschriften stehen in A7 bis G7. Wird in A7 etwas anderes
als (Alle) ausgewàhlt würde ich das gern kenntlich machen.
Wenn es möglich wàre, prüfen ob in A7 gefiltert wurde, wenn ja dann A6
rot einfàrben. Das ganze bis G7.
Für Anregungen bin ich sehr dankbar.

Gruß
Peter
 

Lesen sie die antworten

#1 Claus Busch
26/04/2014 - 17:22 | Warnen spam
Hallo Peter,

Am Sat, 26 Apr 2014 15:55:08 +0200 schrieb Peter Schuerer:

Meine Spaltenüberschriften stehen in A7 bis G7. Wird in A7 etwas anderes
als (Alle) ausgewàhlt würde ich das gern kenntlich machen.
Wenn es möglich wàre, prüfen ob in A7 gefiltert wurde, wenn ja dann A6
rot einfàrben. Das ganze bis G7.



probiers mal so:

Sub Test()
Dim i As Long, j As Long
Dim pt As PivotTable

Set pt = ActiveSheet.PivotTables(1)
Range("A8:G100").Interior.Color = xlNone
With pt
On Error Resume Next
For i = 1 To .PivotFields.Count
For j = 1 To .PivotFields(i).PivotItems.Count
If .PivotFields(i).PivotItems(j).Visible = False Then
.PivotFields(i).LabelRange.Interior.Color = vbRed
Exit For
End If
Next
Next
End With
End Sub


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen