macro waarde gebruiken in een filter

[fotofons]

Op Blad1 typ ik een waarde in cel B4. Deze waarde komt voor op Blad2 in kolom B. De rij waar deze waarde staat moet mbv filter zichtbaar worden.
Wie heeft voor mij de oplossing?
Alvast bedankt.

 

[Warme bakkertje]

Uit de losse pols (zonder vb is het gissen natuurlijk)

Sub tst()
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    With Sheets("Blad2")
        .AutoFilterMode = False
        With .Range("A1:C" & .Cells(Rows.Count, "A").End(xlUp).Row)
            .AutoFilter 2, [Blad1!B4].Value
        End With
    End With
        .Calculation = xlCalc
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

 

[huijb]

Onnodige quote verwijderd.

 

[fotofons]

Uit de losse pols (zonder vb is het gissen natuurlijk)

Sub tst()
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    With Sheets("Blad2")
        .AutoFilterMode = False
        With .Range("A1:C" & .Cells(Rows.Count, "A").End(xlUp).Row)
            .AutoFilter 2, [Blad1!B4].Value
        End With
    End With
        .Calculation = xlCalc
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

Ik krijg een foutmelding op deze regel: .Calculation = xlCalc

 

[Warme bakkertje]

Deze mag je verwijderen.

 

[fotofons]

Deze mag je verwijderen.

 

[fotofons]

Deze mag je verwijderen.

Waarde wordt niet gevonden, vind ik wel via Bewerken, zoeken. Dus komt echt voor in de kolom. Cursor staat in de laastste cel met gevulde gebied in de zoekkolom.

 

[Warme bakkertje]

Zet je bestandje hier eens neer, want op deze manier komen we nergens.

 

[fotofons]

zet je bestandje hier eens neer, want op deze manier komen we nergens.

 

[Warme bakkertje]

Je zoekwaarde staat in C4 dus

.AutoFilter 2, [Blad1![COLOR="red"]C4[/COLOR]].Value

 

[Warme bakkertje]

Voor de volledigheid

Sub Macro3()
'
' Macro3 Macro
' De macro is opgenomen op 22-1-2011 door HollandAccent Onderwijsgroep.
'
' Sneltoets: CTRL+z
'
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    With Sheets("Blad2")
        .AutoFilterMode = False
        With .Range("A1:C" & .Cells(Rows.Count, "A").End(xlUp).Row)
            .AutoFilter 2, [Blad1!C4].Value
        End With
    End With
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

 

[fotofons]

Voor de volledigheid

Sub Macro3()
'
' Macro3 Macro
' De macro is opgenomen op 22-1-2011 door HollandAccent Onderwijsgroep.
'
' Sneltoets: CTRL+z
'
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    With Sheets("Blad2")
        .AutoFilterMode = False
        With .Range("A1:C" & .Cells(Rows.Count, "A").End(xlUp).Row)
            .AutoFilter 2, [Blad1!C4].Value
        End With
    End With
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

 

[fotofons]

Mijn dank is groot. Als je een meisje was kreeg je een dikke zoen. Dat ik dat zelf niet heb gezien..... ;-((