Microsoft Excel

Herbers Excel/VBA-Archiv

Filter zuruecksetzen


Betrifft: Filter zuruecksetzen von: Torsten
Geschrieben am: 16.08.2018 11:39:36

Hallo zusammen,

beim Schliessen meiner Exceldatei moechte ich eventuell gesetzte Filter zuruecksetzen. Habe dafuer folgenden Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim wks As Worksheet
 
For Each wks In ThisWorkbook.Worksheets
  With wks
    If .FilterMode Then .ShowAllData
  End With
Next wks

End Sub
Leider funktioniert das nicht. Der Filter ist immernoch aktiv, wenn ich das File wieder oeffne.
Kann das daran liegen, dass die Tabelle erst in der Zeile 10 (Header) anfaengt?
Darueber sind verschiedene Shapes zum Anzeigen verschiedener Berechnungen.
Kann mir jemand helfen und sagen, was ich anders machen oder ergaenzen muss?

Vielen Dank im Voraus.

Gruss Torsten

  

Betrifft: AW: Filter zuruecksetzen von: PeTeR
Geschrieben am: 16.08.2018 11:47:55

Hallo Torsten,
kann es sein, dass nach dem Zurücksetzen der Filter die Datei gar nicht mehr neu gespeichert wird? Evtl. noch ein activeworkbook.save einbauen.
Viel Erfolg
PeTeR


  

Betrifft: AW: Filter zuruecksetzen von: Torsten
Geschrieben am: 16.08.2018 12:19:33

Hallo PeTeR,

danke fuer den Hinweis. Habs probiert aber keine Aenderung. Filter bleibt bestehen.


  

Betrifft: AW: Filter zuruecksetzen von: Hajo_Zi
Geschrieben am: 16.08.2018 12:29:24

Hallo Torsten



nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)


Der Code ist nicht unter DieseArbeitsmappe.

GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.


  

Betrifft: AW: Filter zuruecksetzen von: Torsten
Geschrieben am: 16.08.2018 12:37:29

Danke Hajo,

diesen Standardspruch von dir kennt nun wohl jeder hier.
Ich hab ja wohl mein Problem ausfuehrlich beschrieben. Ich vermute, dass es daran liegt, dass die Tabelle nicht in Zeile 1 beginnt sondern is Zeile 10.
Aber ich weiss nicht, wie ich den code ergaenzen muss.


  

Betrifft: AW: Filter zuruecksetzen von: Raimund
Geschrieben am: 16.08.2018 13:34:43

Hi Torsten.

Versuche mal dieses:

Sub AlleFilterEntfernen()
      With ActiveWorkbook.ActiveSheet
            If .FilterMode Then
                .ShowAllData
            End If
      End With
End Sub

Gruss Raimund


  

Betrifft: AW: Filter zuruecksetzen von: Raimund
Geschrieben am: 16.08.2018 13:45:56

Hi Torsten.

Sorry, dieses funktioniert fuer alle shets:

Public Sub AlleFilterEntfernen()
Dim ws                   As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If ws.FilterMode Then
        ws.ShowAllData
    End If
Next ws
End Sub
Gruss
Raimund


  

Betrifft: AW: Filter zuruecksetzen von: Torsten
Geschrieben am: 16.08.2018 14:00:30

Trotzdem Danke.
Habe es jetzt anders geloest, indem ich die (intelligente) Tabelle mit ihrem Namen im ListObjects anspreche.

Gruss Torsten


  

Betrifft: AW: Filter zuruecksetzen von: Torsten
Geschrieben am: 16.08.2018 13:58:46

Dank Raimund,

aber das ist im Prinzip das gleiche, was ich hatte.


  

Betrifft: AW: Filter zuruecksetzen von: Raimund
Geschrieben am: 16.08.2018 14:08:25

Hi Torsten.

Im Prinzip ja, aber dein Code macht es nicht was es soll.
Hast du mein Code getestet?

Public Sub AlleFilterEntfernen()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If ws.FilterMode Then
        ws.ShowAllData
    End If
Next ws
End Sub

Gruss Raimund


  

Betrifft: AW: Filter zuruecksetzen von: Torsten
Geschrieben am: 16.08.2018 14:20:15

Ja hab ich. Aber das Problem ist hier, dass die Tabelle in Zeile 10 anfaengt. In einem anderen sheet, wo die Tabelle in Zeile 1 anfaengt, funktionieren beide codes.
Aber wie in meiner anderen Antwort beschrieben, hab ich das jetzt anders geloest.


  

Betrifft: AW: Filter zuruecksetzen von: Raimund
Geschrieben am: 16.08.2018 14:27:09

Hi Torsten.

Ich habe es getestet und alle Filter werden entfernt, egal ob die Tabelle mit Filter in Zeile 10, 20 oder 1 anfaengt.

Nichts fuer ungut.

Gruss
Raimund


Beiträge aus dem Excel-Forum zum Thema "Filter zuruecksetzen"