ich habe das Problem, dass ich über VBA in einer gefilterten Tabelle einen bestimmten Filter setzen will.
Wenn die Tabelle bereits gefiltert ist, lösche ich alle Filter mit ShowAllData.
Wenn aber kein Filter gesetzt ist, dann darf ich anscheinend ShowAllData nicht machen.
Wie prüfe ich, ob ein Filter gesetzt ist und baue das dann mit If Then ein?
Hier der Code:
Private Sub CB_Tage_Click()
Sheets("Telefonliste").Select
Sheets("Telefonliste").Unprotect ("asa")
Hier müßte das If Filter = an then ShowAllData kommen
Sheets("Telefonliste").ShowAllData
'Selection.AutoFilter Field:=28
Sheets("Telefonliste").Protect UserInterfaceOnly:=True, Password:="asa"
If OB_A1nT.Value = True Then
Von = ">0"
Bis = "<=" + CStr(TB_TageA1)
Else
Von = ">" + CStr(-TB_TageA1)
Bis = "<0"
End If
Selection.AutoFilter Field:=28, Criteria1:=Von, Operator:=xlAnd, Criteria2:=Bis
Range("H1").Select: ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Telefonliste").Protect UserInterfaceOnly:=True, Password:="asa"
Unload KundenSelektion
Unload Eingabe2
Unload Start1
End Sub
Vielen Dank fürs Lesen, Eindenken und Antworten
Elmar