Zeilenbeschriftung aktualisieren mit Makro
10.12.2012 12:05:18
Christian
bei vielen Fragen hat mir dieses Forum schon weiter geholfen. Nun habe ich aber eine Frage wozu ich leider noch keine antwort gefunden haben.
Ich habe viele Daten welche sich über eine Datenschnittstelle aktuallisieren. Die Pivot-Tabellen aktuallsieren sich dank Makro
Sub RefreshPivot()
Dim p As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each p In ws.PivotTables
p.RefreshTable
Next
Next
End Sub
So habe ich z.b. eine Abfrage welche mir die KW Anzeigt nun kommt eine KW hinzu und ich muss in der Pivot diese KW wieder manuell auswählen und das ist bei ca. 20 Pivot-Tabellen doch sehr aufwändig.
Gibt es eine Möglichkeit das ich alle Zeilenbeschriftungen autmatisch auswähle mit ausnahme der Zeilenbeschriftung "leer"?
Anzeige