Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon oddme vom 26.09.2019, 11:57 Options
Brauche Hilfe bei einem Button mit Makro
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
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
Antwort 1 von DukeNT vom 26.09.2019, 12:36 Options
Hi oddme,
versuchs mal hiermit:
Sub Button_filter()
'
' Button_filter Makro
'
'
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False: End
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=20, Criteria1:="<>"
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=37, Criteria1:="="
End Sub
Mit der If Abfrage checkt er ob auf dem Aktiven Blatt der Filter gesetzt ist und deaktiviert ihn ggf.
Gruß Niels
versuchs mal hiermit:
Sub Button_filter()
'
' Button_filter Makro
'
'
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False: End
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=20, Criteria1:="<>"
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=37, Criteria1:="="
End Sub
Mit der If Abfrage checkt er ob auf dem Aktiven Blatt der Filter gesetzt ist und deaktiviert ihn ggf.
Gruß Niels
Antwort 2 von oddme vom 26.09.2019, 14:23 Options
Hallo,
ich habe nun diesen Code...
Er macht die Filterung auch rein, doch wenn ich wieder auf den Button klicke geht die Filterung nicht wieder raus.
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
Woran kann das liegen?
Gruß oddme
ich habe nun diesen Code...
Er macht die Filterung auch rein, doch wenn ich wieder auf den Button klicke geht die Filterung nicht wieder raus.
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
Woran kann das liegen?
Gruß oddme
Antwort 3 von DukeNT vom 26.09.2019, 14:52 Options
Hi oddme,
sorry hatte nicht gesehen das du mit einem ToggleButton arbeitest.
Versuch dies mal:
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "Filter EIN"
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False: End
End If
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Filter AUS"
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=20, Criteria1:="<>"
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=37, Criteria1:="="
End If
End Sub
Gruß Niels
sorry hatte nicht gesehen das du mit einem ToggleButton arbeitest.
Versuch dies mal:
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "Filter EIN"
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False: End
End If
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Filter AUS"
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=20, Criteria1:="<>"
ActiveSheet.Range("$A$3:$BI$364").AutoFilter Field:=37, Criteria1:="="
End If
End Sub
Gruß Niels
Ähnliche Themen
kann wegen makro nicht drucken - was machen?
srepsac 26.06.2007 - 118 Hits - 1 Antwort
CommandButton mit Kennwort erstellen?
bokap1975 21.08.2007 - 29 Hits - 5 Antworten
via Makro Arbeitsmappen verknüpfen
Günter03 30.08.2007 - 33 Hits - 2 Antworten
Listenfeld oder Dropdown, ich brauche Hilfe
tuerpi111 06.04.2008 - 28 Hits - 19 Antworten
Brauche Tipps für einen individuellen VBA-Code
varginator 03.04.2008 - 118 Hits - 14 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
