Celverwijzing bij filteren en subtotalen

[Albatros]

Hallo,

Het lukt mij niet om een celverwijzijng te krijgenuit een database, als ik de opties filteren en subtotalen heb gebruikt.
Om een lang verhaal kort te houden, voeg ik het probleembestand met en omschrijving toe, als een zipje.

Wie weet raad?

Albatros

 

[Jan van Asseldonk]

Met onderstaande macro werkt dat.
Hoe je dat automatisch laat uitvoeren moet ik nog even uitzoeken. Plaats het hier zodra ik daaruit ben.

Sub Macro1()
'
Range("B7").Select
ActiveCell.Offset(1, 0).Select
While Rows(ActiveCell.Row).Hidden = True
ActiveCell.Offset(1, 0).Select
Wend
Range("d5") = ActiveCell.Value
End Sub

 

[Albatros]

Hallo Jan,

De macro werkt perfect, maar inderdaad, je moet er wel aan denken om hem te activeren.
Ben benieuwd naar een "automatische" .Het mag ook een formule zijn, maar dat is me nog niet gelukt.

Albatros