Reccords tellen

[Dhondtie]

Hey,

Ik heb een report die een hele hoop datums weergeeft met hun bijhorende gegevens.
Dit report is sorted by datum (datum staat in mijn eerste kolom)
nu heb ik onderaan mijn report een textbox staan. ik zou willen dat er in die textbox komt te staan hoe vaak een bepaalde datum voorkomt.

Ik vermoed dat dit via de besturingselementbron van die textbox moet gebeuren.
als ik in die besturingselementbron zet: =Count([Datum]) geeft die textbox mij succesvol het aantal records weer op het report (dus eigenlijk overal waar er een waarde staat in de kolom Datum)

Dus ik dacht dat in mijn gevraagde textbox het volgende zou volstaan:
=Count([Datum] = 1/1/2010)

Dit werkt echter niet.
Weet er soms iemand hoe ik via de besturingselementbron van een tekstbox het aantal specifieke data kan tellen?

hartelijk dank

 

[ExcelAmateur]

Dhondtie,

Bij mij doet hij dit met onderstaande formule.
Zo te zien gebruik je de Engelse versie, dus moet je hem even omzetten.
A3 = de datum die hij moet tellen.

=AANTAL.ALS(A:A;A3)

 

[Mark xl]

Bedoel je zoiets?

Sub test()
    MsgBox CountIfDate("01-01-2010")    ' pas aan naar de datum die je zoekt, _
                                        verander msgbox naar "textbox1 = " object
End Sub
Function CountIfDate(FindDate As Date) As Long
With WorksheetFunction
    CountIfDate = .CountIf(Range("Datum"), DateDiff("d", 0, FindDate))
End With
End Function

of duidelijker:

Sub test2()
Dim mydate As Date
mydate = "01-01-2010"
With WorksheetFunction
    mytextbox = .CountIf(Range("Datum"), DateDiff("d", 0, mydate))
End With
End Sub

EDIT:
het lijkt me overigens makkelijke om AANTAL.ALS te gebruiken zoals ExcelAmateur aangeeft,
maar dan moet je het wel op het werkblad houden, en een cel selecteren met de datum. want de reden dat je formule niet werkt is omdat de werkelijke waarde van de cellen in je bereik "Datum" getallen zijn en geen datums

 

[ExcelAmateur]

Dhondtie,

Het kan eventueel ook zo, zie het plaatje.

 

[Mark xl]

Of zo:

in de programmacode van blad 1 staat de module.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Datum")) Is Nothing Then
    With Application.WorksheetFunction
        TextBox1.Text = .CountIf(Range("Datum"), DateDiff("d", 0, Range("B5")))    'dit is de cel met de controle datum
    End With
End If
End Sub

dan heb je vanavond wat om uit te proberen