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 / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon majoplinka vom 21.03.2020, 12:41 Options
excel vba filter reset
moin habe ein kleines Problem,
um mir lästiges filter zurück setzen zu ersparen will ich ein Reset Knopf machen aber es klappt nicht so wie ich will!
das ist bis jetzt meine Lösung
Private Sub FILTER_Click()
Sheet2.Unprotect
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=10
Selection.AutoFilter Field:=11
Selection.AutoFilter Field:=12
Selection.AutoFilter Field:=13
Selection.AutoFilter Field:=13
Range("B8").Select
Selection.End(xlDown).Select
End Sub
kostet aber viel rechen leistung weil er jeden filter zurück setzt auch die die die nicht angewält warren!!
gibt es da was einfaches ???
sowas wie wenn filter nicht in 0 Stellung dann zurück setzen wenn nicht dann nächsten filter prüfen!
schon mal fettes danke für eure hilfe
um mir lästiges filter zurück setzen zu ersparen will ich ein Reset Knopf machen aber es klappt nicht so wie ich will!
das ist bis jetzt meine Lösung
Private Sub FILTER_Click()
Sheet2.Unprotect
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=10
Selection.AutoFilter Field:=11
Selection.AutoFilter Field:=12
Selection.AutoFilter Field:=13
Selection.AutoFilter Field:=13
Range("B8").Select
Selection.End(xlDown).Select
End Sub
kostet aber viel rechen leistung weil er jeden filter zurück setzt auch die die die nicht angewält warren!!
gibt es da was einfaches ???
sowas wie wenn filter nicht in 0 Stellung dann zurück setzen wenn nicht dann nächsten filter prüfen!
schon mal fettes danke für eure hilfe
Antwort 1 von majoplinka vom 23.03.2020, 09:08 Options
hat sich erledigt!!
Ähnliche Themen
Filter erstellen
Toni165 10.04.2007 - 362 Hits - 3 Antworten
Aktive Filter in Excel erkennen (VBA)
Mein_Pseudonym 06.07.2007 - 123 Hits - 2 Antworten
mehre Excel Arbeitsblaetter in PowerPoint via VBA ansprechen
sammille 12.03.2008 - 103 Hits -
Schnellreferenz Excel VBA
Joshuan 23.05.2008 - 221 Hits - 3 Antworten
VBA-Excel
mentosbasi 28.05.2008 - 352 Hits - 3 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
