Brauche Hilfe bei einem Button mit Makros

Hallo zusammen!
Also als erstes ich habe noch nicht viel mit Makro gearbeitet. Bin totaler Neuling darin.
Ich wollte ein Makro erstellen, dass wenn ich auf einen Button klicke zwei Spalten nach einem bestimmten Wert gefiltert sind und wenn ich nochmal raufklicke, das sich dann die Filterung zurückgenommen wird. Das Funktioniert auch, aber nur mit zwei verschiedenen Makros.
Ich möchte mit einem "klick" den Filter setzten und mit noch einem "klick" den Filter wieder lösen.


Sub Button_filter()
' Button_filter Makro
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=20, Criteria1:=""
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=37, Criteria1:="="
End 

Sub
____________________________________________________________________


Sub Button_filter2()
' Button_filter2 Makro
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=37
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=20
End 

Sub
So sieht das jetzt aus... ich habe 2 Makros einen zum Filtern und einen zum auflösen. Kann ich  _
die irendwie zusammenfügen?
Ich hoffe Ihr könnt mir helfen!
Gruß oddme

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jens
Hier mal ein kleines Beispiel:
Deklariere eine Variable in einem Modul als Public.
Das heißt die Variable behält ihren Wert.
Schau Dir dazu das Modul in der Beispielmappe an.
Im eigentlichen Makro, fragst Du nun den Zustand der Variablen ab.
Ist sie True dann diese Codabschnitt ausführen,Variable ändern, Code beenden
Ist sie False dann den anderen Codeabschnitt ausführen,Variable wieder ändern, Code beenden.
Durch das Ändern der Variablen in der Codzeile und anschließendem Verlassen der Prozedur, wird bei jedem Klick auf das Button der jeweils andere Code-Abschnitt ausgeführt.
Alternativ dazu kannst Du Dich in der VBA-Online-Hilfe mal ein bisschen umsehen.
Suche dort nach OnAction. Dort gibt es weitere Möglichkeiten Dein Vorhaben zu verwirklichen.
Hier die Beispielmappe: https://www.herber.de/bbs/user/46344.xls
Userbild

Private Sub ToggleButton1_Click() If ToggleButton1.Value = True Then ToggleButton1.Caption = "Filter AUS" ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=37 ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=20 End If If ToggleButton1.Value = False Then ToggleButton1.Caption = "Filter EIN" ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=20, Criteria1:="" ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=37, Criteria1:="=" End If End Sub

Sub Button_filter() If EinAus = True Then ' Button_filter Makro ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=20, Criteria1:="" ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=37, Criteria1:="=" EinAus = False Else ' Button_filter2 Makro ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=37 ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=20 EinAus = True End If End Sub

Beliebteste Forumthreads (12 Monate)

Brauche Hilfe bei einem Button mit Makros

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Brauche Hilfe bei einem Button mit Makros

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread