Wie bekomme ich Filterkriterien in Excel 2016 mit VBA?

Question

Ich arbeite an einem Excel 2016 VBA-Makro, das einen Filter auf die Überschriftenspalte anwendet. Danach wendet der Benutzer die Filterkriterien an. Ich möchte in VBA in der Lage sein, die Filterkriterien abzurufen, die der Benutzer anwendete, und sie in einem Zeichenfolgenarray zu speichern. Gibt es eine Möglichkeit, auf die Filterkriterien zuzugreifen?

Vielen Dank im Voraus.

Answer 1

Ich überprüfte this question und ziemlich kopiert den ersten Teil des Codes, die einzige Sache ist, dass Sie nicht das Feld bekommen, auf das es angewandt wird, das problematisch sein kann.

Dim sht As Worksheet 
Set sht = ActiveSheet 
With sht.AutoFilter 
    With .Filters 
     ReDim filtarr(1 To .Count, 1 To 3) 
     For f = 1 To .Count 
      With .Item(f) 
       If .On Then 
        filtarr(f, 1) = .Criteria1 
        Debug.Print .Criteria1 
        If .Operator Then 
         filtarr(f, 2) = .Operator 
         filtarr(f, 3) = .Criteria2 
         Debug.Print .Operator & ", " & .Criteria2 
        End If 
       End If 
      End With 
     Next f 
    End With 
End With 

Answer 2

der Code würde so sein. Der Code des Feldes ist Zellen (1, f).

Dim sht As Worksheet 
Set sht = ActiveSheet 
With sht.AutoFilter 
    With .Filters 
     ReDim filtarr(1 To .Count, 1 To 4) ' change array 
     For f = 1 To .Count 
      With .Item(f) 
       If .On Then 
        filtarr(f, 1) = .Criteria1 
        filtarr(f, 4) = Cells(1, f) 'field 
        Debug.Print .Criteria1, Cells(1, f) 
        If .Operator Then 
         filtarr(f, 2) = .Operator 
         filtarr(f, 3) = .Criteria2 

         Debug.Print .Operator & ", " & .Criteria2 
        End If 
       End If 
      End With 
     Next f 
    End With 
End With