Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: command button für autofilter

command button für autofilter
16.11.2007 11:12:00
chrissie
hi,
habe mal wieder ne makro frage. bräuchte mal ein makro für einen command button, das wenn dieser 1x geklickt wird der autofilter zurückgesetzt wird. d.h. wenn in irgendeiner spalte der filter gesetzt war soll sich nach dem anklicken des buttons alle filter auf auswahl "Alle" stellen

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: command button für autofilter
16.11.2007 11:20:54
Hajo_Zi
Hallo Chrissie,
weise dem Button folgendes Makro zu

With ActiveWorkbook.ActiveSheet
If .FilterMode Then
.ShowAllData
MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, "   Filter deaktiviert"
End If
End With



Anzeige
AW: command button für autofilter
16.11.2007 11:37:00
Andreas
Wie bind ich das jetzt in ein Makro ein?

AW: command button für autofilter
16.11.2007 11:41:00
Hajo_Zi
Hallo Andreas,
Schreibe noch

Sub Makro() davor und End 

Sub dahinter.
Gruß Hajo

Anzeige
AW: command button für autofilter
16.11.2007 12:49:00
Andreas
Vielen Dank!

AW: command button für autofilter
19.11.2007 07:49:00
chrissie
mega genial noch besser als ich es mir gedacht hatte ist perfekt mit der meldung das alle filter entfernt wurden

AW: command button für autofilter
19.11.2007 07:57:00
chrissie
wie kann ich da noch die meldung einbinden das keine autofilter gesetzt sind wenn eben keine gesesetzt wurden?

Anzeige
AW: command button für autofilter
19.11.2007 08:54:00
Hajo_Zi
Hallo Chrissie,
vor end If
else
MsgBox "Es war kein Auto-Filter gesetzt!", vbOKOnly, " Filter nicht aktiviert"
Gruß Hajo
Ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.

Anzeige
AW: command button für autofilter
16.11.2007 11:22:00
IngGi
Hallo Chrissie,
davon ausgehend, dass sich der CommandButton auf einem Tabellenblatt befindet und der Code dementsprechend im Modul dieses Tabellenblattes:


Private Sub CommandButton1_Click()
Me.ShowAllData
End Sub

Gruß Ingolf

Anzeige
AW: command button für autofilter
19.11.2007 07:31:29
chrissie
danke aber das funktioniert irgendwie nicht. da kommt die fehlermeldung unzulässige verwendung des schlüsselworts ME
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Command Button für Autofilter in Excel erstellen


Schritt-für-Schritt-Anleitung

Um einen Command Button in Excel zu erstellen, der alle Filter zurücksetzt, folge diesen Schritten:

  1. Öffne Excel und gehe zu dem Arbeitsblatt, in dem Du den Button einfügen möchtest.

  2. Aktiviere die Entwicklertools, falls sie nicht sichtbar sind. Gehe dazu auf Datei > Optionen > Menüband anpassen und aktiviere die Entwicklertools.

  3. Klicke im Tab "Entwicklertools" auf "Einfügen" und wähle "Button (Formularsteuerung)" aus.

  4. Ziehe den Button auf das Arbeitsblatt, um ihn zu platzieren.

  5. Sobald Du den Button platziert hast, öffnet sich ein Dialogfeld, in dem Du ein Makro zuweisen kannst. Klicke auf "Neu", um ein neues Makro zu erstellen.

  6. Füge den folgenden VBA-Code in das neue Modul ein:

    Sub Button_FilterZuruecksetzen()
       With ActiveWorkbook.ActiveSheet
           If .FilterMode Then
               .ShowAllData
               MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, "Filter deaktiviert"
           Else
               MsgBox "Es war kein Auto-Filter gesetzt!", vbOKOnly, "Filter nicht aktiviert"
           End If
       End With
    End Sub
  7. Schließe den VBA-Editor und teste den Button.


Häufige Fehler und Lösungen

  • Fehler: "Unzulässige Verwendung des Schlüsselworts ME"

    • Lösung: Stelle sicher, dass der Code im richtigen Modul ist. Der Befehl Me.ShowAllData sollte in einem Worksheet-Modul stehen, nicht in einem normalen Modul.
  • Fehler: Der Button funktioniert nicht.

    • Lösung: Überprüfe, ob das Makro korrekt zugewiesen wurde und dass Du die Entwicklertools aktiviert hast.

Alternative Methoden

Eine Alternative zur Verwendung eines Command Buttons ist die Erstellung einer Excel Filter Schaltfläche. Du kannst auch eine Schaltfläche über die "Formen" in Excel erstellen und das gleiche VBA-Skript zuweisen.

  1. Gehe zu Einfügen > Formen und wähle eine Form aus.
  2. Zeichne die Form auf deinem Arbeitsblatt und klicke mit der rechten Maustaste darauf.
  3. Wähle "Makro zuweisen" und wähle das entsprechende Makro aus.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du den Excel Filter Button einfügen kannst:

  • Beispiel 1: Du hast eine Tabelle mit Verkaufsdaten und möchtest einen Button erstellen, der alle Filter zurücksetzt. Nutze den oben beschriebenen Code und weise ihn dem Button zu.
  • Beispiel 2: Verwende den Button in einem Dashboard, um die Benutzerfreundlichkeit zu erhöhen. Mit einem einfachen Klick können alle Filter auf die Auswahl "Alle" zurückgesetzt werden.

Tipps für Profis

  • Verwende die Application.ScreenUpdating-Eigenschaft, um das Flackern bei der Ausführung des Makros zu reduzieren:

    Application.ScreenUpdating = False
    ' Dein Code hier
    Application.ScreenUpdating = True
  • Du kannst den Button auch optisch anpassen, indem Du die Formateinstellungen in Excel verwendest, um ihn hervorzuheben.


FAQ: Häufige Fragen

1. Wie kann ich mehrere Filter zurücksetzen? Um mehrere Filter zurückzusetzen, kannst Du denselben VBA-Code verwenden, da ShowAllData alle gesetzten Filter entfernt.

2. Funktioniert dieser Button in älteren Excel-Versionen? Ja, der Code sollte in den meisten Versionen von Excel funktionieren, die Makros unterstützen, einschließlich Excel 2010 und höher.

3. Kann ich den Button anpassen? Ja, Du kannst die Farbe und den Text des Buttons ändern, um ihn an Dein Design anzupassen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige