Ich habe das Problem jetzt so gelöst:
Public SWActiveFilters As Variant
Public SWFilterState As Boolean
Private Sub Form_Initialize()
Dim i As Integer
'Aktuelle Filter-Einstellungen werden gespeichert
SWActiveFilters = swApp.GetSelectionFilters
SWFilterState = swApp.GetApplySelectionFilter
'Alle Filter werden deaktiviert
On Error Resume Next
For i = 0 To UBound(SWActiveFilters)
swApp.SetSelectionFilter SWActiveFilters(i), False
Next
On Error GoTo 0
'Flächen-Auswahlfilter wird aktiviert
swApp.SetApplySelectionFilter True
swApp.SetSelectionFilter swSelFACES, True
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
'Flächen-Auswahlfilter wird deaktiviert
swApp.SetSelectionFilter swSelFACES, False
'Filter werden in Ausgangslage zurückgesetzt
On Error Resume Next
For i = 0 To UBound(SWActiveFilters)
swApp.SetSelectionFilter SWActiveFilters(i), True
Next
On Error GoTo 0
swApp.SetApplySelectionFilter SWFilterState
End Sub
Es scheint als würde es funktionieren.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP