Automatische Aktualisierung der Filter

Hallo zusammen,



hoffentlich poste ich jetzt im richtigen Forum... leider kenne ich mich mit Makros nur sehr begrenzt aus. Daher benötige ich bei folgendem Problem Hilfe:


Ich mache im Moment eine Fehlerauswertung. Es gibt über 350 Fehler, die ich extern in Excel importiere.

Als erstes werden die Daten archiviert, hierfür habe ich ein Makro:



Sub Übertrag_Archiv_Neu()
Dim Dest As Range
'Spalte kopieren
Sheets("ZÄHLEN").Columns("B:B").Copy
'Leere Spalte suchen
Set Dest = Sheets("Archiv").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
'Einfügen
Dest.PasteSpecial Paste:=xlPasteValues
'Kopieren aus
Application.CutCopyMode = False
End Sub




Danach werden die letzten Daten (also die aktuellen) in ein neues Tabellenblatt übertragen, damit ich diese filtern kann (es gibt sehr viele Fehler, die an diesem Tag gar nicht aufgetreten sind, und diese brauche ich nicht in meinen Diagrammen). In diesem neuen Tabellenblatt filtere ich dann alle Werte mit "0" raus, und daraus macht Excel dann das aktuelle Diagramm. Nun ist mein Problem, dass ich jeden Tag diesen Filter manuell aktualisieren muss, damit die Daten richtig sind. Da ich aber nicht nur ein Tabellenblatt als Grundlage für ein Diagramm habe, sondern 3, ist das doch sehr aufwendig.


Daher ist meine Frage, ob es nicht ein Makro gibt, dass automatisch alle Datenblätter aktualisiert, also auch alle Filter. Am besten wäre es, könnte man diese Aktualisierung direkt nach dem "Archivieren" (s. Makro oben) laufen lassen.


Wie gesagt, ich bin ein Makro-Neuling, wäre super, wenn mir hier jemand helfen könnte.

Vielen dank im Voraus!


Gruß

Markus