
144026
04.05.2020, aktualisiert um 11:08:26 Uhr
Excel Makro Filter an- und ausschalten
Hallo,
über eine Makro Aufzeichnung konnte ich die Auswahl einer Spalte anzeigen und die anderen ausblenden.
Überall wo es zu den zugehörigen Kürzeln ein X gibt, diese Spalten werden dann angezeigt.
Akutell ist es aber so, dass immer nur eine Spalte dann angezeigt wird, jenachdem was man auswählt.
Ist es aber auch möglich das Makro über ein If quasi so zu steuern, dass ma auch mehrere Spalten parallel anzeigen lassen kann und wenn man auf den Butto klickt und die Spalte ist ausgewählt, dann soll sie mit dem nächsten klick nicht mehr ausgewählt sein usw. ?
Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=6, Criteria1:="="
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=7, Criteria1:="="
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=8, Criteria1:="="
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=9, Criteria1:="="
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=10, Criteria1:="="
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=8
End Sub
über eine Makro Aufzeichnung konnte ich die Auswahl einer Spalte anzeigen und die anderen ausblenden.
Überall wo es zu den zugehörigen Kürzeln ein X gibt, diese Spalten werden dann angezeigt.
Akutell ist es aber so, dass immer nur eine Spalte dann angezeigt wird, jenachdem was man auswählt.
Ist es aber auch möglich das Makro über ein If quasi so zu steuern, dass ma auch mehrere Spalten parallel anzeigen lassen kann und wenn man auf den Butto klickt und die Spalte ist ausgewählt, dann soll sie mit dem nächsten klick nicht mehr ausgewählt sein usw. ?
Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=6, Criteria1:="="
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=7, Criteria1:="="
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=8, Criteria1:="="
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=9, Criteria1:="="
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=10, Criteria1:="="
ActiveSheet.Range("$A$3:$BF$89").AutoFilter Field:=8
End Sub
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 569463
Url: https://administrator.de/forum/excel-makro-filter-an-und-ausschalten-569463.html
Ausgedruckt am: 02.06.2025 um 13:06 Uhr