Excel vba Autofilter Kriterien auslesen

[sharky51]

Hallo zusammen,

hätte da schon wieder eine Frage an Euch.
In einer Tabelle habe ich 30 Spalten mit einem Autofilter in der Zeile 1 versehen und filtere entsprechend verschiedene Daten aus unterschiedlichen Spalten.
Wie könnte man alle gesetzten Filterkriterien aus jedem Filter (Spalte) auslesen und in eine MsgBox oder in das Überwachungsfenster ausgeben?

Mit folgendem Code (aus dem Netz) lassen sich die Filter erstmal alle ausschalten und dann wieder einschalten. Wie kann man den Code erweitern um die Daten zu loggen?

Code:

Public Sub Autofilter()
    Dim arrFilters() As FilterData, rngFilters As Range, bolFilters As Boolean, i As Integer
     
    '#######Einlesen
   
    With Worksheets("Angebote - Genehmigungen")
        If .AutoFilterMode Then
            With .Autofilter
                ReDim arrFilters(1 To .Filters.Count)
               
                For i = 1 To .Filters.Count
                    With .Filters(i)
                        If .On Then
                            arrFilters(i).On = .On
                            arrFilters(i).Count = .Count
                            arrFilters(i).Operator = .Operator
                            arrFilters(i).Criteria1 = .Criteria1
                            If .Count = 2 Then
                                arrFilters(i).Criteria2 = .Criteria2
                            End If
                        End If
                    End With
                Next
            End With
            bolFilters = True
          .AutoFilterMode = False
        End If
       
    End With
   
    '#######Wiederherstellen
   
    If bolFilters Then
        Set rngFilters = Worksheets("Angebote - Genehmigungen").Rows(1)
       
        rngFilters.Autofilter  'Auch setzen, wenn alle On=False?
     
        For i = 1 To UBound(arrFilters)
            With arrFilters(i)
                If .On Then
                    If .Count = 1 Then
                        rngFilters.Autofilter i, .Criteria1
                    Else
                        rngFilters.Autofilter i, .Criteria1, .Operator, .Criteria2
                    End If
                End If
            End With
        Next
    End If
End Sub

Vielleicht könnt Ihr mir da weiterhelfen?

[00202]

Hallo Erich, :19:

hier eine Möglichkeit: :21:
[attachment=28778]

[sharky51]

Hallo Case,

der Code funktioniert gut in dem genannten Beispiel
Wenn ich den aber in meine Mappe in ein Modul schreibe dann hüpfte das teil gleich auf die Sprungmarke und zeigt "Fehler: 1004 Anwendungs- oder objektdefinierter Fehler"

Ich muss dazu sagen dass in 32 Spalten der Autofilter eingefügt ist.
Die erste Filterung passiert in Spalte 8 und dann wieder in Spalte 32.
Wie kann man da alle Spalten einbeziehen ob Filter gesetzt oder nicht?

Geht das überhaupt mit so vielen Spalten oder habe ich da etwas nicht verstanden?

Vielleicht könntest Du mir das verraten  :92:

Jetzt habe ich in Deinem Beispiel entdeckt dass da der gleiche Fehler kommt wenn nur ein Filter gesetzt ist und der zweite soll alles anzeigen.

Kann man den Fehler abfangen, bzw alle Spalten wo der Filter nicht gesetzt ist ignorieren?

[Elex]

Hi
damit spielt glaub ich jeder mal. :15:

Gruß Elex

[00202]

Kann man den Fehler abfangen, bzw alle Spalten wo der Filter nicht gesetzt ist ignorieren?

Hallo Erich, :19:

mit einer kleinen Prüfung...

Code:

If .On Then

... geht das. :21:
[attachment=28807]

[sharky51]

Hallo Elex,

vielen dank für Dein Beispiel.

Funktioniert alles soweit gut, nur der Übertrag der gefilterten Werte auf die andere Tabelle funktioniert bei mir nicht.
Zumindest bekomme ich die gleiche Filterung die in Deinem Bespiel eingestellt war nicht rekonstruiert.

---

Hallo Case,

Dir auch ein Dankeschön für das funktionierende Beispiel. Cool!
Könnte man da auch noch die Spalte bzw. Überschrift der Spalte mit ausgeben?

[00202]

Hallo Erich, :19:

das geht dann so:

Entweder Du änderst nur eine Codezeile...

Code:

MsgBox "In Spalte: " & lngFilter & " - Überschrift: " & .Parent.Parent.Cells(1, lngFilter).Value & vbCrLf & strTMP

... oder du nimmst folgendes Beispiel: :21:
[attachment=28808]

[sharky51]

Hallo Case,

vielen Dank das passt jetzt super.

Wünsche noch eine schönen Sonntag!