kann ich einer Zelle den gewählten Wert eines AutoFilters einer Spalte zuweisen? D.h. wenn im Autofilter "Haus" gewählt ist, soll in Zelle xy auch "Haus" stehen...
Danke
PeMoe
Sub test()
With Worksheets("Tabelle1")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then
Range("C1") = " Kriterium " & .Criteria1
Else: Range("c1") = "Kriterium =Alle"
End If
End With
End If
End With
End Sub