Hallo Gemeinde,

 

für die Auswertung von Verbandbucheinträgen bzw. deren Visualisieren verwende ich mehrere PivotTabellen, die wiederum die Datenbasis für meine PivotCharts bilden. Ferne verwende ich drei Kombinationsfelder, mit deren Auswahl ich die Filter der obig genannten PivotTabellen bestimme. Das Makro, welches ich programmiert habe, erfüllt seinen Dienst, d.h. die Funktionalität ist gegeben. Allerdings habe ich eine extrem lange Laufzeit. Könnt Ihr mir hier bitte weiterhelfen?

 

a) Wie kann ich den Code schlanker gestalten, sodass die Laufzeit verkürzt wird?

b) Falls a) nicht funktioniert, wie kann eine Art "Fortschrittsbalken" integriert werden, welcher die verbleibende Dauer anzeigt?

 

Nachfolgend der Code! Vielen Dank vorab für eure Unterstützung!

 

Sub AuswahlBereich()

'Auswaehlen des gewuenschten Bereiches
Dim strAktuellerBereich As String
strAktuellerBereich = ThisWorkbook.Worksheets("Auswahlhilfe").Cells(26, 4).Value


    'Wenn aktuell ausgewaehlter Bereich ist gleich GERLACH GESAMT oder LEER dann
    If strAktuellerBereich = ThisWorkbook.Worksheets("Auswahlhilfe").Cells(29, 5) Or strAktuellerBereich = "" Then
       
        With ThisWorkbook.Worksheets("Automatisationshilfe").PivotTables("pvtUnfallortAbteilung")
        
            'Alle Filter loeschen, Aktualisieren, Leere Zeilen Filtern
            .PivotFields("Unfallort - Abteilung").ClearAllFilters
            .PivotCache.Refresh
            .PivotFields("Unfallort - Abteilung").PivotItems("(blank)").Visible = False
            
            'Alle Abteilungen auswaehlen
            .PivotFields("Unfallort - Bereich").CurrentPage = "(All)"
            
        End With
            
        With ThisWorkbook.Worksheets("Automatisationshilfe")
        
            .PivotTables("pvtUnfallortBereich").PivotCache.Refresh
        
            .PivotTables("pvtKlassifizierung").PivotCache.Refresh
            .PivotTables("pvtKlassifizierung").PivotFields("Unfallort - Bereich").CurrentPage = "(All)"
            .PivotTables("pvtKlassifizierung").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtKlassifizierung").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
                   
            .PivotTables("pvtUnfallortArbeitsplatz").PivotCache.Refresh
            .PivotTables("pvtUnfallortArbeitsplatz").PivotFields("Unfallort - Bereich").CurrentPage = "(All)"
            .PivotTables("pvtUnfallortArbeitsplatz").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            
            .PivotTables("pvtVerletzungsart").PivotCache.Refresh
            .PivotTables("pvtVerletzungsart").PivotFields("Unfallort - Bereich").CurrentPage = "(All)"
            .PivotTables("pvtVerletzungsart").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtVerletzungsart").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
            
            .PivotTables("pvtUnfallzeitMonat").PivotCache.Refresh
            .PivotTables("pvtUnfallzeitMonat").PivotFields("Unfallort - Bereich").CurrentPage = "(All)"
            .PivotTables("pvtUnfallzeitMonat").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtUnfallzeitMonat").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
        
            .PivotTables("pvtUnfallzeitWochentag").PivotCache.Refresh
            .PivotTables("pvtUnfallzeitWochentag").PivotFields("Unfallort - Bereich").CurrentPage = "(All)"
            .PivotTables("pvtUnfallzeitWochentag").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtUnfallzeitWochentag").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
        
            .PivotTables("pvtUnfallzeitSchichten").PivotCache.Refresh
            .PivotTables("pvtUnfallzeitSchichten").PivotFields("Unfallort - Bereich").CurrentPage = "(All)"
            .PivotTables("pvtUnfallzeitSchichten").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtUnfallzeitSchichten").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
        
            .PivotTables("pvtKoerperteil").PivotCache.Refresh
            .PivotTables("pvtKoerperteil").PivotFields("Unfallort - Bereich").CurrentPage = "(All)"
            .PivotTables("pvtKoerperteil").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtKoerperteil").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
        
            .PivotTables("pvtUnfallortArbeitsplatzGross").PivotCache.Refresh
            .PivotTables("pvtUnfallortArbeitsplatzGross").PivotFields("Unfallort - Bereich").CurrentPage = "(All)"
            .PivotTables("pvtUnfallortArbeitsplatzGross").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
        
        End With
        
        'Ausblenden nicht benoetigter Objekte
        With ThisWorkbook.Worksheets("Dashboard")
            
            .ChartObjects("diaUnfallortArbeitsplatz").Visible = False
            .Shapes("GrUnfallortAbteilung").Visible = False
            .Shapes("GrUnfallortArbeitsplatz").Visible = False
            
        End With
    
    'Wenn aktuell ausgewaehlter Bereich ist UNgleich GERLACH GESAMT oder LEER dann
    Else
        
        With ThisWorkbook.Worksheets("Automatisationshilfe").PivotTables("pvtUnfallortAbteilung")
        
            'Alle Filter loeschen, Aktualisieren, Leere Zeilen Filtern
            .PivotFields("Unfallort - Abteilung").ClearAllFilters
            .PivotCache.Refresh
            .PivotFields("Unfallort - Abteilung").PivotItems("(blank)").Visible = False
            
            'Alle Abteilungen auswaehlen
            .PivotFields("Unfallort - Bereich").CurrentPage = strAktuellerBereich
            
        End With
            
        With ThisWorkbook.Worksheets("Automatisationshilfe")
        
            .PivotTables("pvtUnfallortBereich").PivotCache.Refresh
        
            .PivotTables("pvtKlassifizierung").PivotCache.Refresh
            .PivotTables("pvtKlassifizierung").PivotFields("Unfallort - Bereich").CurrentPage = strAktuellerBereich
            .PivotTables("pvtKlassifizierung").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtKlassifizierung").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
                   
            .PivotTables("pvtUnfallortArbeitsplatz").PivotCache.Refresh
            .PivotTables("pvtUnfallortArbeitsplatz").PivotFields("Unfallort - Bereich").CurrentPage = strAktuellerBereich
            .PivotTables("pvtUnfallortArbeitsplatz").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            
            .PivotTables("pvtVerletzungsart").PivotCache.Refresh
            .PivotTables("pvtVerletzungsart").PivotFields("Unfallort - Bereich").CurrentPage = strAktuellerBereich
            .PivotTables("pvtVerletzungsart").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtVerletzungsart").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
            
            .PivotTables("pvtUnfallzeitMonat").PivotCache.Refresh
            .PivotTables("pvtUnfallzeitMonat").PivotFields("Unfallort - Bereich").CurrentPage = strAktuellerBereich
            .PivotTables("pvtUnfallzeitMonat").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtUnfallzeitMonat").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
        
            .PivotTables("pvtUnfallzeitWochentag").PivotCache.Refresh
            .PivotTables("pvtUnfallzeitWochentag").PivotFields("Unfallort - Bereich").CurrentPage = strAktuellerBereich
            .PivotTables("pvtUnfallzeitWochentag").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtUnfallzeitWochentag").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
        
            .PivotTables("pvtUnfallzeitSchichten").PivotCache.Refresh
            .PivotTables("pvtUnfallzeitSchichten").PivotFields("Unfallort - Bereich").CurrentPage = strAktuellerBereich
            .PivotTables("pvtUnfallzeitSchichten").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtUnfallzeitSchichten").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
        
            .PivotTables("pvtKoerperteil").PivotCache.Refresh
            .PivotTables("pvtKoerperteil").PivotFields("Unfallort - Bereich").CurrentPage = strAktuellerBereich
            .PivotTables("pvtKoerperteil").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
            .PivotTables("pvtKoerperteil").PivotFields("Unfallort - Arbeitsplatz").CurrentPage = "(All)"
        
            .PivotTables("pvtUnfallortArbeitsplatzGross").PivotCache.Refresh
            .PivotTables("pvtUnfallortArbeitsplatzGross").PivotFields("Unfallort - Bereich").CurrentPage = strAktuellerBereich
            .PivotTables("pvtUnfallortArbeitsplatzGross").PivotFields("Unfallort - Abteilung").CurrentPage = "(All)"
        
        End With
        
        'Ausblenden nicht benoetigter Objekte
        With ThisWorkbook.Worksheets("Dashboard")
            
            .ChartObjects("diaUnfallortArbeitsplatz").Visible = False
            .Shapes("GrUnfallortAbteilung").Visible = True
            .Shapes("GrUnfallortArbeitsplatz").Visible = False
            
        End With
    
        'Dropdown Abteilung auf leer setzten
        ThisWorkbook.Worksheets("Auswahlhilfe").Cells(26, 10).Value = 0
        ThisWorkbook.Worksheets("Auswahlhilfe").Cells(26, 10).Value = 0
    
    End If

End Sub