Autofilter auslesen in Bereich als Tabelle
21.05.2019 14:00:49
Schmecks
mit dem VBA-Code aus dem Beitrag: https://www.herber.de/forum/archiv/1624to1628/1624112_Autofilter__Suche__auslesen.html
Option Explicit
Function GetFilter(intSpalte As Integer) As String
Application.Volatile
If ActiveSheet.FilterMode And ActiveSheet.AutoFilterMode Then
If ActiveSheet.AutoFilter.Filters(intSpalte).On Then
GetFilter = ActiveSheet.AutoFilter.Filters(intSpalte).Criteria1
If Left(GetFilter, 1) = "=" Then GetFilter = Mid(GetFilter, 2)
End If
End If
End Function
bin ich bisher immer sehr gut gefahren und konnte ohne Probleme die Autofilter auslesen. Für ein anderes Projekt muss ich nun ein normalen Bereich auf dem Arbeitsblatt als Tabelle formatiert lassen und will auch dort die Autofilter auslesen. Leider funktioniert das im Tabellenbereich nicht. Warum ist das so und wie muss ich den VBA-Code entsprechend anpassen um die Filter genauso auslesen zu können?
mfg
Euer Schmecks
Anzeige