Function getautofilter(sSh As String) As String
Dim sAf As String
Dim lloCol As Long
On Error Resume Next
sAf = "Kein Filter"
With ThisWorkbook.Worksheets(sSh)
If .Autofilter.FilterMode Then
If .Autofilter.Filters.Count > 0 Then
For lloCol = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
sAf = .Autofilter.Filters(lloCol).Criteria1
If sAf "Kein Filter" Then Exit For
Next
End If
End If
End With
On Error GoTo 0
getautofilter = sAf
End Function
Hallo zusammen, zunächst vielen Dank an Oberschlumpf.Seine obige Version der Funktion funktionierte auf Anhieb. Die Funktion benennt das neue Tabellenblatt nach dem Filterkriterium.
Filtere ich z.B. die Spalte Verteilerbezirk nach dem 1. Verteilerbezirk (Filter =1), so heißt das neue Tabellenblatt =1.
Für eine kleine Ergänzung wäre ich dankbar. Wenn die Spaltenüberschrift noch integriert werden könnte. Also das Tabellenblatt in obigem Beispiel würde dann Verteilerbezirk =1 heißen.