AW: via Makro Autofilter ein, wenn aus, sonst umgekehr
21.07.2007 01:08:00
Nepumuk
Hallo Peter,
die AutoFilterMode - Eigenschaft sagt nur, ob in einer Tabelle überhaupt ein Filter, aber nicht ob er aktiv ist oder nicht. Dazu musst du die FilterMode - Eigenschaft abfragen.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub Filter_Switch()
With Worksheets("Inventar")
.Select
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
Else
.Rows(1).AutoFilter Field:=1, Criteria1:="="
End If
End If
End With
End Sub
Gruß
Nepumuk
P.S. Wann lernen es die Leute endlich, dass man einen boolschen Wert nicht mit True oder False vergleichen muss. Denn dieser Vergleich gibt ja auch wieder einen boolschen Wert zurück und wenn er nicht mit Not negiert wird, dann genau den selben.
Public Sub Unsinn1()
If True = True Then Beep
End Sub
Public Sub kein_Unsinn1()
If True Then Beep
End Sub
Public Sub Unsinn2()
If False = False Then Beep
End Sub
Public Sub kein_Unsinn2()
If Not False Then Beep
End Sub
Diese Art von Variablen wurden doch deswegen eingeführt, um die boolsche Algebra anzuwenden. Die ist nämlich wesentlich schneller wie der Vergleich von zwei Speicherbereichen den ich mit dem "=" auslöse.