Benutzerdef. Ansicht per VBA Abfragen
25.01.2021 11:43:59
Steinwolf
Ich möchte per Benutzerdefinierte Ansicht einige Filter (1 Spalte gezielt und alle Filter) aus- und wieder einblenden und das per 3 Formularfeld Buttons.
Dazu habe ich 3 Makros geschrieben. Das funktioniert auch soweit, nur falls jemand auf die Idee kommt die 2 Löschenmakros hintereinander zu drücken, muss man zur Wiederherstellung 2x auf Filter wiederherstellen klicken.
Um das zu umgehen, würde ich gerne einfach abfragen, ob die Benutzeransicht "Filter_Zwischenspeicher_Auswahl" existiert. Das bekomme ich leider nicht hin. Kann mir jemand die Codezeile geben?
Makros:
1) Alle gesetzten Filter löschen:
_______________________________________________________________________
Sub Filter_loeschen()
On Error GoTo Fehler
'Filter zwischenspeichern
ActiveWorkbook.CustomViews.Add ViewName:="Filter_Zwischenspeicher", _
PrintSettings:=True, RowColSettings:=True
'Filter löschen
ActiveSheet.ShowAllData
Exit Sub
Fehler:
MsgBox "Fehler! Wahrscheinlich sind keine Filter ausgewählt.", vbInformation
End Sub
___________________________________________________________________________________
2) Nur den Filter mit der Stückzahlauswahl löschen
Sub Filter_Stueckzahl_loeschen()
'Filter zwischenspeichern
ActiveWorkbook.CustomViews.Add ViewName:="Filter_Zwischenspeicher_Auswahl", _
PrintSettings:=True, RowColSettings:=True
'Stückzahl Filter (Spalte L) löschen
ActiveSheet.Range("$L$6:$AX$1500").AutoFilter Field:=1
End Sub
_______________________________________________________________________________________
3) Alle Filter wiederherstellen:
Sub Filter_wiederherstellen()
On Error GoTo WEITER
ActiveWorkbook.CustomViews("Filter_Zwischenspeicher_Auswahl").Show
ActiveWorkbook.CustomViews("Filter_Zwischenspeicher_Auswahl").Delete
WEITER:
Resume weiter2
weiter2:
On Error GoTo ENDE
ActiveWorkbook.CustomViews("Filter_Zwischenspeicher").Show
ActiveWorkbook.CustomViews("Filter_Zwischenspeicher").Delete
Exit Sub
ENDE:
End Sub
LG,
Steinwolf