« as is exception oder exception as is usual oder doch Extensions | Main| You, myself, just everybody can have a »

Excel, Pivottabellen ... Du auch ?

0
Category  
Also da baut man in Excel eine Pivottabelle, da man sich alle Daten nicht gleichzeitig anschauen kann und will baut man ein paar Berichtsfelder ein.....

Nach und nach werden immer mehr Tabellenblätter auf Basis der gleichen Grunddaten mit Pivots bestückt die Berichtsfelder bleiben die gleichen
z.B.
Kontinent
Land
Region
usw.....

Jetzt hätte man gerne, wenn sich in den Berichtsfeldern auf der ersten Seite was ändert, dass diese Auswahl auf die anderen Blätter übernommen wird .....
Mit der folgenden Funktion kann man die Auswahl der Berichtsfelder (generisch) auf andere Pivots übernehmen....

Sub UpdatingPivotOnSheet(xFromSheet As String, xFromPivot As String, xToSheet As String, xToPivot As String)
   
    On Error GoTo ErrorHandler
    Application.StatusBar = "Updating selection from " & xFromSheet & " to " & xToSheet
     For i = 1 To Sheets(xFromSheet).PivotTables(xFromPivot).PivotFields.Count
        Dim s As String
        s = Sheets(xFromSheet).PivotTables(xFromPivot).PivotFields(i).Name
        On Error Resume Next
        Sheets(xToSheet).PivotTables(xToPivot).PivotFields(s).CurrentPageName = Sheets(xFromSheet).PivotTables(xFromPivot).PivotFields(s).CurrentPageName
        On Error GoTo ErrorHandler
     Next
ExitSub:
    Exit Sub
ErrorHandler:
    Application.StatusBar = "Error on Updating"
    Application.Wait 1
    Resume ExitSub
   
End Sub

Habe hier die CurrentPageName verwendet, da ich die Funktionalität auf einem Cube mit den Analysis Services realisierte!

Jetzt in die Haupt-Pivot noch folgenden Event implementieren ->

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Application.ScreenUpdating = False
   
    UpdatingPivotOnSheet "Overview", "PivotTable1", "Sheet1", "PivotTable1"
    UpdatingPivotOnSheet "Overview", "PivotTable1", "Sheet2", "PivotTable1"
   
    Application.ScreenUpdating = True
   
    Application.StatusBar = ""
End Sub

fertisch , viel Spaß damit!

Gruß JJR
P.S.: ApplicationScreenUpdating = False beschleunigt einfach nur ein wenig, da Excel nix malen muß!


Post A Comment

:-D:-o:-p:-x:-(:-):-\:angry::cool::cry::emb::grin::huh::laugh::lips::rolleyes:;-)

Amazon


Impressum

Firmenname: Peanuts-Soft
Straße Nummer: Biinger Strasse 8
PLZ Ort: 55263 Wackernheim
Telefon: +491772134526
E-Mail: joerg.reck @ peanuts-soft.de
Disclaimer: Peanuts-Soft übernimmt keine Garantie dafür, dass die auf dieser Website bereitgestellten Informationen vollständig, richtig und stets aktuell sind. Dies gilt auch für alle Links, auf die verwiesen wird. Peanuts-Soft ist für die Inhalte, auf die per Link verwiesen wird, nicht verantwortlich. Peanuts-Soft haftet nicht für konkrete, mittelbare und unmittelbare Schäden oder Schäden, die durch fehlende Nutzungsmöglichkeiten, Datenverluste oder entgangene Gewinne – sei es aufgrund der Nichteinhaltung vertraglicher Verpflichtungen, durch Fahrlässigkeit oder eine andere unerlaubte Handlung – im Zusammenhang mit der Nutzung von Dokumenten oder Informationen bzw. der Erbringung von Dienstleistungen entstehen, die auf dieser Web Site zugänglich sind.
Datenschutz: Inhalt und Gestaltung der Internetseiten sind urheberrechtlich geschützt. Eine Vervielfältigung der Seiten oder deren Inhalte bedarf der vorherigen schriftlichen Zustimmung von Peanuts-Soft.


Locations of visitors to this page

Powered By

Domino BlogSphere
Version 3.0.2