der u.g. Code funktioniert nur wenn ich die Tabelle selectiere.
Geht das auch ohne Selection?
Sub Filter_aus()
If Sheets("Tabelle1").FilterMode Then
Sheets("Tabelle").ShowAllData
End If
End Sub
Gruß Dieter
Sub Filter_aus()
If Sheets("Tabelle1").FilterMode Then
Sheets("Tabelle").ShowAllData
End If
End Sub
Sub Filter_aus()
If Sheets("Tabelle1").Range("A3:AJ30000").FilterMode Then 'A3:AJ300000 ist meine _
Datentabelle
Sheets("Tabelle1").ShowAllData
End If
End Sub
geht auch nicht