415 Aufrufe
Gefragt in Tabellenkalkulation von jonesm Mitglied (191 Punkte)
Hallo,
ich möchte zwei Makros in einem Makro zusammenführen, bei dem
geprüft wird ob der Autofilter aktiv ist oder nicht und jeweils einen
anderen Code ausführen.

Also sinngemäß
"wenn Autofilter aktiv ist dann schalte in aus" und
"wenn Autofilter nicht aktiv ist, dann schalte ihn an".

Meine Makros sehen folgendermaßen aus:
Sub AutofilterAn()
ActiveSheet.Range("$A$8:$M$190").AutoFilter Field:=1, Criteria1:="
<>"
End Sub

und
Sub FilterAAus()
ActiveSheet.Range("$A$8:$M$190").AutoFilter Field:=1
End Sub


Wie bekomme ich die beiden Codes in einen Code mit entsprechender
Abfrage zusammengeführt?

Schon mal vielen Dank fürs Denken!

VG Thomas

1 Antwort

0 Punkte
Beantwortet von jonesm Mitglied (191 Punkte)
Danke an alle, ich habe es geschafft:

If ActiveSheet.FilterMode Then
ActiveSheet.Range("$A$8:$M$190").AutoFilter Field:=1
Else
ActiveSheet.Range("$A$8:$M$190").AutoFilter Field:=1, Criteria1:="
<>"
End If




VG
...