Laufzeitfehler 91 ohne Deklarationen

[Rabe]

Hi,

hier zwei Beispiele für das Überprüfen des Autofilters und das Rücksetzen.

Option Explicit

Sub Test()
   Range("A1").Select
   If ActiveSheet.AutoFilterMode Then
      Selection.AutoFilter
      Selection.AutoFilter
   End If
   
   'hier Dein abzuarbeitender Code 
   
End Sub

Sub Test2()
   Range("A1").Select
   'Autofilter ausschalten 
   If ActiveSheet.AutoFilterMode Then Range("A:A").AutoFilter
   If Not ActiveSheet.AutoFilterMode Then Selection.AutoFilter
   
   'hier Dein abzuarbeitender Code 
   MsgBox ("Autofilter zurückgesetzt!")
   
   'Autofilter einschalten 
   If ActiveSheet.AutoFilterMode Then Range("A:A").AutoFilter
   If Not ActiveSheet.AutoFilterMode Then Selection.AutoFilter
   
End Sub

[schauan]

Hallo Ralf,

der erste Code schaltet den Autofilter nicht ein, wenn er nicht eingeschalten ist. Ist er eingeschalten, wird er ausgeschalten und wieder eingeschalten

[Rabe]

Hi,

dann so?

Sub Test()
   Range("A1").Select
   If ActiveSheet.AutoFilterMode Then
      Selection.AutoFilter
      Selection.AutoFilter
   Else
      Selection.AutoFilter
   End If
   
   'hier Dein abzuarbeitender Code 
   
End Sub

[Steffl]

Hallo Ralf,

eher so

Code:

Sub Test()
   Range("A1").Select   'darauf würde ich verzichten
   If ActiveSheet.AutoFilterMode Then
      Selection.AutoFilter
   Else
      Selection.AutoFilter
   End If
  
   'hier Dein abzuarbeitender Code
  
End Sub

[Rabe]

Hi Stefan,

nein, das hatte ich getestet. Wenn der Autofilter eingeschaltet ist und die Daten gefiltert, wird durch einmaliges "Selection.AutoFilter" dieser ausgeschaltet und nicht nur der Filter rückgesetzt. Deswegen muß er ausgeschaltet und wieder eingeschaltet werden.

[Steffl]

Hallo Ralf,

und so?

Code:

Sub Test()
   Range("A1").Select   'darauf würde ich verzichten
   If ActiveSheet.AutoFilterMode Then
'      Selection.AutoFilter
      If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
   Else
      Selection.AutoFilter
   End If
  
   'hier Dein abzuarbeitender Code
End Sub

[schauan]

Hallo Ralf,

ja, so passt der erste auch

Hallo Steffl,

der Autofilter muss wieder an sein, um dann mit dem Autofilter.Sort usw. weitermachen zu können.


@all

das mit dem Select A1 wegzulassen geht nicht ganz auf - wenn man vielleicht anderswo auf dem Blatt ist und dort auch ein unabhängiger Autofilter geschalten werden könnte.

Dann als Verbesserung vielleicht direkt, bei Leerzeilen auch mit dem kompletten Bereich oder zumindest der ersten Zeile oder alternativ auch mit with und dem Bereich.

If not activesheet.AutoFilterMode Then Range("A1:B1").Autofilter
'hier weitere mit dem sort ...
ActiveSheet.AutoFilter.Sort.SortFields.Clear
...

Nur falls ein anderer Bereich gefiltert sein könnte, dann ggf
ActiveSheet.AutoFilter
vor die If-Zeile. Denn damit ist die eventuell bereits vorgenommene Filterauswahl weg

[Rabe]

Hi,

hier eine Lösung von Uwe:

Code:

Sub AF_Test()
   With ActiveSheet
     If .AutoFilterMode Then
       If .FilterMode Then
         .ShowAllData
       End If
     Else
       .Range("A1").CurrentRegion.AutoFilter
     End If
   End With
End Sub

siehe hier #7

[Kuwer]

Hallo André,

- wenn man vielleicht anderswo auf dem Blatt ist und dort auch ein unabhängiger Autofilter geschalten werden könnte.

hört sich interessant an. Hier hatten wir heute das Gleiche.  

Gruß Uwe

[schauan]

Hallo Uwe,

Nicht ganz. Man kann fast ja an beliebiger Stelle einen Autofilter setzen wenn noch keiner besteht. Wenn ich den per code einschalten will und bin nicht dort, wo er hin soll und hab das nicht konkret programmiert bin ich vielleicht mit dem Ergebnis nicht zu frieden