Erweiterte Filterung per VBA - Teilsummen werden nicht aktualisiert

[reflexion]

Hallo liebe Forengemeinde!

Ich habe ein Problem.
In meinem Excel File habe ich einen erweiterten Filter eingebaut, der via Checkbox aktiviert werden kann:

Code:

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Range("A4:A5000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Konten-Filter").Range("A2:A43"), Unique:=False       
    Else
        ActiveSheet.ShowAllData  
    End If
End Sub

Dieser erweiterte Filter funktioniert per Knopfdruck ausgezeichnet, allerdings werden diverse Zwischensummen nach dem Ausführen nicht aktualisiert. Ich habe mit Teilsumme die eigentlichen Summen gebildet, aber trotzdem werden die alten Summen angezeigt:

Um es an einem fixktiven Beispiel festzumachen:
a - 1300
b - 3000
c - 5000
d - 500
Summe: 9800

Nachdem ich die Checkbox aktiviere, filter es mir automatisch alle a's weg und somit:
b - 3000
c - 5000
d - 500
Summe: 9800 --> Die Summe bleibt trotzdem gleich der alten Summe, nachdem ausführen des Codes.

Wenn ich dann in das Feld hineinklicke und nochmal die Formel (Teilsumme) bestätige, aktualisiert es mir den Wert auf den gefilterten Zustand. Ich hab probiert in der Code mit "ActiveSheet.Calculate" nach dem filtern irgendwie auszufrischen, aber nichts funktioniert.

Jetzt die Frage, hatte das Problem noch wer und wie kann ich die Teilsumme nach ausführen meines Codes auf die aktuelle Filterung aktualisieren, ohne das ich in jede einzelne Zeile clicken muss und mit F2+Enter die Formel neu ausführen muss.


Danke im Voraus.
MfG
reflex

[snb]

Erstelle mal bitte ein reales Beispiel und lade dieses hoch.

Code:

Private Sub CheckBox1_Click()
    ActiveSheet.ShowAllData  
    If CheckBox1 Then Range("A4:A5000").AdvancedFilter 1, Sheets("Konten-Filter").Range("A2:A4")      
End Sub

[reflexion]

Hallo,

anbei ein Testfile welches das problem demonstriert.


MfG
reflex

[reflexion]

Ich habe die Lösung nun gefunden:

Der Zusatz...

Code:

Application.Calculate

... führt nicht zum Ziel, da die Teilergebnisse dort nicht neu berechnet werden.


Allerdings kann man mit dem Zusatz...

Code:

Application.CalculateFull

... das Excel dazu schlussendlich zwingen, dass es alle Formeln neu berechnet und die teilergebnisse werden somit nach der Filterung aktualisiert.


Warum das so ist, keine Ahnung!


Trotzdem danke für die Hilfe!
MfG
reflex

[snb]

Ich sehe kein Problem.