Tonen gefilterde tekst/cijfer

[Noord2011]

Beste helpers,

Ik ben opzoek naar een alternatief om gekozen filter te tonen in een cel.

Bijv: als ik kies voor (filter op cijfer 2) dan dient het tekst/cijfer twee te verschijnen in cel C3 op dezelfde sheet.


Als het mogelijk: (ook als ik kies voor 2 en 3 alle twee tonen in cel C3)



Wie kan me helpen

Alvast bedankt.

 

[Arliator]

Zodra je de filtering weer ongedaan hebt gemaakt, moeten de gekozen waardes dan in C3 blijven staan?
Als je dan weer gaat filteren, moeten dan de waardes in C3 worden overschreven?
Hoe moeten de waardes (als je er meer hebt gefilterd) getoond worden? Met spatie gescheiden, als 1 nummer?
Zo zullen er nog wel meer vragen zijn.

 

[Warme bakkertje]

Bekijk deze eens. Wijzig het filter in kolom B en kijk dan naar het resultaat onderaan de getallen.

 

[sylvester-ponte]

Rudie, is dat ook mogelijk als er meer dan 2 criteria zijn?
bv als in een lijst van 10 er 5 aangevinkt zijn?

 

[Warme bakkertje]

@ SP
Kijk eens of je hiermee verder kan.

Function AutoFilter_Criteria(Rng As Range) As String
    Dim strCri1 As String, strCri2 As String
    Application.Volatile
    With Rng.Parent.AutoFilter
        With .Filters(Rng.Column - .Range.Column + 1)
            If Not .On Then Exit Function
            If IsArray(.Criteria1) Then
                strCri1 = Replace(Join(.Criteria1, ", "), "=", "")
            Else
                strCri1 = Replace(.Criteria1, "=", "")
            End If
            If .Operator = xlAnd Then
                strCri2 = " EN " & Replace(.Criteria2, "=", "")
            ElseIf .Operator = xlOr Then
                strCri2 = " OF " & Replace(.Criteria2, "=", "")
            End If
        End With
    End With
    AutoFilter_Criteria = strCri1 & strCri2
    'AutoFilter_Criteria = UCase(Rng) & " " & strCri1 & strCri2
End Function

 

[sylvester-ponte]

Rudi, heel mooi gemaakt, gelijk de "=" er uit en de , er tussen.
kun je nog vertellen wat die (Header) eigenlijk weer moet geven?

 

[WHER]

Ik veronderstel dat Rudi eigenlijk bedoelt:

AutoFilter_Criteria = UCase(Rng) & " " & strCri1 & strCri2

 

[Warme bakkertje]

@ WHER
Idd. :thumb:
Heb Post#6 nog wat aangepast.

 

[sylvester-ponte]

Rudi en WHER, dank

 

[Noord2011]

Iedereen bedankt

Het is opgelost. :thumb: