If Filterung einer Spalte = "<>" Then...
19.09.2020 22:30:34
Asce
ich habe ein Modul mit dem ich einen Filter auf eine variable Spalte setze.
'###########################################
'Modul Filtern
'###########################################
Public Sub FilterSetzen(Spaltenname As String)
Dim lo As ListObject
Dim iCol As Long
Set lo = ActiveSheet.ListObjects(1)
iCol = lo.ListColumns(Spaltenname).index
lo.Range.AutoFilter Field:=iCol, Criteria1:=""
End Sub
Jetzt möchte ich an anderer Stelle prüfen welcher Filter aktuell in einer variablen Spalte gesetzt ist und dann weitere Schritte einleiten, aber ich bekomme die If Abfrage nicht hin =( .
If lo.Range.AutoFilter Field:=iCol = Criteria1:="" Then
...
End If
lg Asce
Anzeige