automatisch filteren en resultaat verplaatsen

[KJB51]

Hallo,

Ik wil graag op basis van een invoerveld automtisch gegevens filteren uit een lijst en deze gefilterde gegevens wegschrijven naar een ander werkblad.
Zie voorbeeldbestand.
Bekijk bijlage voorbeeld.xlsm

Alvast bedankt.

 

[JeanPaul28]

Met een index formule

 

[KJB51]

Hallo Jean-Paul,

Je oplossing werkt prima. Heb alleen een excelsheet met bijna 400000 regels en daar heeft excel heel veel moeite mee.
Als er emand is die daar een oplossing voor weet hoor ik het graag.

Groeten Karl-John

 

[Jack Nouws]

Private Sub CommandButton1_Click()
      With [vhe_nr!A6].CurrentRegion
        .AutoFilter 1, [A2]
        .SpecialCells(xlCellTypeVisible).Copy [selectie_vhe_nr!A1]
        .AutoFilter
      End With
End Sub

Werkt alleen als er geen spatie in je tabbladnaam staat.

Met vr gr
Jack

 

[KJB51]

Hallo Jack,
Ik heb de code in This workbook geplaats maar krijg hem niet aan de gang. Als ik in cel A2 een ander nummer invul zou hij toch automatisch moeten lopen of niet?
Groeten Karl-John

 

[ExcelAmateur]

KJB51,

De code van Jack Nouws hoort onder een knop, dus niet in This workbook.

 

[KJB51]

Oke, bedankt. Loopt prima nu.