Waarde uit blad 1 selectief weergeven in blad 2

[carloschouw]

Goedemorgen,

Ik ben op zoek naar een formule (of VBA o.i.d.) waarmee ik een ‘gefilterde’ waarde van Blad 1 kan laten weergeven van Blad 2.

Voorbeeld,

In Blad 1 worden alle waardes weergegeven, met status ‘open’ en ‘gesloten’
Nu zou ik in Blad 2 enkel de ‘open’ waardes willen zien en dat de waardes dan onder elkaar worden gezet (dus geen lege cellen tussendoor zichtbaar)

Ik heb geen idee hoe dit zou moeten. Iemand een idee?

 

[AlexCEL]

2 manieren in bijlage, met draaitabel en met matrixfunctie (dus afsluiten met Control+Shift+Enter). Een filter op de tabel op blad1 zou ook nog kunnen.

 

[carloschouw]

Super! De matrixformule geprobeert en het werkt geweldig.

Dank voor de hulp.

 

[carloschouw]

Goedemorgen!

Helaas kom ik tijdens het inrichten van het bestand een probleempje tegen. Wanneer ik b.v. in Blad 1, kolom A Cel 5 (4-open) verwijder krijg ik in Blad 2 (matrix formule) een #NB melding.

Het kan n.l. wel eens voorkomen dat iemand uit blad 1 een waarde verwijderd (wegens b.v. een fout), dan werkt helaas de formule niet meer. Is dit op te lossen?

Groet, Carlo

 

[emields]

als er regelmatig veranderingen in komen gebruik je beter dit.

 

[carloschouw]

Zo, dat werkt goed zeg!

Super bedankt voor je hulp.

 

[VenA]

Kan ook met 1 regel code

Private Sub Worksheet_change(ByVal Target As Range)
  If Target.Address(0, 0) = "D2" Then Sheets("Blad1").Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, Range("D1:D2"), Range("A1:B1")
End Sub