VBA kode til at identificere filter rækker

har ikke løsningen men du skal arbejde med SpecialCells(xlCellVisible) vil jeg mene..

Ja det har du nok ret i... Jeg havde forestillet mig at skulle sætte filter til "alt" og vælge første data linje -1 det må jo være den række som filteret er sat op på.

Hej - måske er det noget som dette du søger...
Jeg kan ikke huske hvor jeg har fundet det men det virker for mig.

Kopier funktionen herrunder til et modul og indsæt formlen i cellerne over de kolonner der er i dit dataområde

HVis du fx har dine data i B3 og nedad
kan du indsætte denne formel i B1:  "=AutoFilter_Criteria(B3)"

Når din kolonne er filtreret vil B1 nu vise filtreringen ........

mvh Kurt

Function AutoFilter_Criteria(Header As Range) As String

' VBA Excel Funktion der i en celle kan vise (display) den eller de værdier der filtreres efter

' Indsæt formel som denne i celle: =AutoFilter_Criteria(B3)

Dim strCri1 As String, strCri2 As String

Application.Volatile

With Header.Parent.AutoFilter

        With .Filters(Header.Column - .Range.Column + 1)

            If Not .On Then Exit Function

                strCri1 = .Criteria1
            If .Operator = xlAnd Then
                strCri2 = " AND " & .Criteria2
            ElseIf .Operator = xlOr Then
                strCri2 = " OR " & .Criteria2
            End If

        End With

End With

AutoFilter_Criteria = UCase(Header) & ": " & strCri1 & strCri2
AutoFilter_Criteria = strCri1 & strCri2

End Function

Det er desværre ikke helt løsningen. Det skal bruges i en Dynamisk GUI del som aflæser den tekst der er i overskrifterne (cellerne med autofilter på). Devs. at jeg som udgangspunkt ikke kender den række hvori rækken med autofilter er.

Jeg har selv fundet ud af det nu

Med Application.ActiveSheet.AutoFilter.Range.Address returnere den den range som autofilteret er på hvor første række er "Overskrifterne".

1000-tak for input det inspirerede mig til at finde løsningen.

svar

Dvs den helt korrekte løsning blev

Application.ActiveSheet.AutoFilter.Range.Cells(1, 1).Row