VBA - kode som viser valgt kriterie i felt

er det dette

With Worksheets("Ark1")
    If .AutoFilterMode Then
        With .AutoFilter.Filters(1)
            If .On Then MsgBox .Criteria1
        End With
    End If
End With

Nej.

Jeg prøver at forklare.
Hvis du har 3 kolonner med nogle rækker og på kolonne 2 vælger autofilter med kriterie XXX vil jeg gerne have skrevet XXX i felt G1

Jeg tror du kan finde det som du leder efter her:

http://j-walk.com/ss/excel/usertips/tip044.htm

With Worksheets("Ark1")
        If .AutoFilterMode Then
        [F1] = "" ' tømmer celle
        [G1] = "" ' tømmer celle
        [H1] = "" ' tømmer celle
            With .AutoFilter.Filters(1)
                If .On Then [F1] = "'" & .Criteria1    ' første kolonnes filter skriver i F1
            End With
            With .AutoFilter.Filters(2)
                If .On Then [G1] = "'" & .Criteria1    ' Anden kolonnes filter skriver i G1
            End With
            With .AutoFilter.Filters(3)
                If .On Then [H1] = "'" & .Criteria1    ' Tredie kolonnes filter skriver i H1
            End With
        End If
    End With

Gibber, jeg fandt hvad jeg havde brug for via din link tak.

Kabbak, dit ser ud til også at virke, da det er noget af det samme blot med 3 felter.

Så i kan jo smide et svar.

.