Datums tellen

[don42]

Hallo allemaal

Is het mogelijk als ik een cel selecteer dat
Er in bv. In cel A1 het aantal keer dat
Deze datum voorkomt in een range
Te zien is.
Don

 

[Niels28]

Ingesteld op dubbelklik
geeft de lijst met de datums de naam data

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("A1").Value = WorksheetFunction.CountIf(Range("data"), Target.Value)
Cancel = True
End Sub

Niels

 

[Joske2000]

Met je datum hardcoded

AANTAL.ALS(je bereik;"datum")

Of met je datum in cel B1

AANTAL.ALS(je bereik;B1)

Groeten,

Joske

 

[don42]

Hoi Niels, bedankt voor je code
heb het nu werkend alleen moest ik cancel=true weghalen wat is hier de functie van
als ik het laat staan krijg ik een foutmelding (COMPILEERFOUT EEN VARIABELE IS NIET GEDEFINEERD)
heb nu als "data" staan c2:r 133" eigenlijk heb ik maar 3 kolommen nodig hoe stel ik het in dat ik kolom c2:c133 g2:g133 en dan r2:r133 krijg?

Joske ook bedankt voor het meedenken
dat werkt natuurlijk ook maar was toch echt op zoek naar het geen wat Niels in de "aanbieding" had