Selectie optellen met vba

[Maxim Essed]

Ik probeer een selectie op te tellen die telkens anders kan zijn. Met onderstaande macro maak ik de selectie. Nu wil ik dat de selectie opgeteld wordt en dat de uitkomst in cel H1 terechtkomt.

Wie kan helpen? (Ik ben nog een leek op dit gebied)

Sub Macro7()
'
' Macro7 Macro
' De macro is opgenomen op 19-9-2008 door Maxim Essed.
'
Range("A5").Select
Dim zoeknaar As Date

zoeknaar = InputBox("Vul hier de datum van de dag tot en met wanneer u de achterstand wilt berekenen", "Invoer datum", "dd-mm-jjjj")
Cells.Find(zoeknaar).Activate
ActiveCell.Offset(, 3).Activate
Range(Selection, Selection.End(xlUp)).Activate

End Sub

 

[bandito bob]

En waarom niet met een SOM.ALS formule?

 

[Wigi]

Hoi Maxim

Ik stel voor dat je deze 2 pagina's eens doorleest, is zeer degelijke lectuur voor jouw specifieke probleem:

http://www.ozgrid.com/VBA/find-method.htm

http://www.ozgrid.com/VBA/find-dates.htm

En dan nog wat dingetjes uitproberen...

Wigi