Laatste rijnummer bepalen in kolom met formules

[Greenwagon]

Ik heb een voorbeeld bestand (zie bijlage: werkblad selecteer) waar in kolom B met verticaal zoeken de cellen gevuld worden. Ik wil vervolgens alleen deze 'gevulde' cellen selecteren. LRij = Range("B65537").End(xlUp).Row geeft echter het rijnummer van de laatste cel met een formule i.p.v. de laatste cel met een waarde (naam). Is er een formule die wel het rijnummer van de laatste cel met een waarde in kolom B kan geven?

 

[Cobbe]

Test deze eens:

Sub cobbe()
 rij = ActiveSheet.Range("B:B").SpecialCells(xlCellTypeFormulas, xlTextValues).Rows.Count
End Sub

 

[Greenwagon]

Werkt! Cobbe enorm bedankt.