Vba: getal groter dan datum

U kunt de volgende basissyntaxis in VBA gebruiken om het aantal datums groter dan een specifieke datum te tellen:

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

In dit specifieke voorbeeld wordt het aantal datums in het bereik A2:A10 geteld dat groter is dan de datum in cel C2 .

Het resultaat wordt vervolgens toegewezen aan cel D2 .

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: Tel groter dan datum met VBA

Stel dat we de volgende lijst met datums in Excel hebben en we willen graag het aantal datums weten groter dan 25-04-2023 :

We kunnen hiervoor de volgende macro maken:

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Cel D2 vertelt ons dat er 6 datums in het bereik A2:A10 zijn die groter zijn dan 25-04-2023 .

Houd er rekening mee dat we de waarde in cel C2 kunnen wijzigen en de macro opnieuw kunnen uitvoeren om het aantal datums groter dan een andere specifieke datum te tellen.

Stel dat we de datum in cel C2 wijzigen in 1-10-2023 en de macro opnieuw uitvoeren:

We zien dat er 3 datums zijn die groter zijn dan 1-10-2023 .

Opmerking: als u het aantal datums groter dan of gelijk aan een specifieke datum wilt tellen, vervangt u eenvoudigweg de “>” in de CountIf- functie door “>=” .

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Hoe te sorteren op datum in VBA
Hoe toe te voegen als tussen twee datums in VBA
Hoe dagen tot nu toe toe te voegen in VBA