1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel 2007 - Autofilter

Discussion in 'Office-Programme' started by kn, Aug 25, 2010.

Thread Status:
Not open for further replies.
  1. kn

    kn Byte

    Hallo Zusammen,
    bis Excel 2003 konnte man mit einem Makro unter "DieseArbeitsmappe" im Listeneintrag "Workbook" unter "BeforeSave" einen gesetzten Autofilter mit dem Befehl "Selction.AutoFilter" vor dem Speichern zurueksetzen.
    Das war sehr hilfreich!
    Bei Excel 2007 funktioniert das leider so nicht mehr.
    Hat jemand eine Idee, wie man den Befehl anpassen muss?
    Danke fuer Eure Hilfe.

    System Win 7 Prof.
    Excel 2007 Prof.
     
    kn, Aug 25, 2010
    #1
  2. Urs2

    Urs2 Megabyte

    Hallo kn

    Ich habe zwar auch nur 2003, aber versuche den Befehl einmal ausführlicher zu schreiben >
    Code:
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

With Sheets("NameDeinesArbeitsBlattes")
        'prüft ob Autofilter gesetzt... dann entfernt ihn
    If .AutoFilterMode Then .Range("A1").AutoFilter
End With

End Sub
    - meine Zelle A1 ist die linke Zelle in der Zeile mit den DropDowns
    - wenn mehrere Autofilter in der Datei sind, einfach für jeden Filter den Code von With bis EndWith wiederholen.

    > Der Befehl "Autofilter" ist ein Toggle > wenn der Filter gesetzt ist, wird er gelöscht... sonst wird er gesetzt.
    Hier wird zuerst geprüft, ob der Filter gesetzt ist und nur dann wird der Befehl ausgeführt...

    Gruss Urs
     
    Urs2, Aug 26, 2010
    #2
  3. Beverly

    Beverly Halbes Megabyte

    Hi,

    sollte eigentlich so funktionieren:
    Code:
        If Worksheets("Tabelle1").AutoFilterMode Then Worksheets("Tabelle1").Cells.AutoFilter
     
    Beverly, Aug 26, 2010
    #3
Thread Status:
Not open for further replies.

Share This Page