Datum's vergelijken

[don42]

Hallo allemaal
ik heb vorige week een vraag gesteld over datums vergelijken
en heb onderstaande code gehad van Zapatr
dit werkt prima, maar wil nu eigenlijk een stapje verder
en wel vergelijken in 4 tabbladen

tabblad: Aanvraag1 Aanvraag2 Aanvraag3 Aanvraag4
Als ik nu een cel selecteer zie ik hoe vaak deze datum voorkomt in het betreffende tabblad
kan dat ook zo dat er geteld wordt in alle vier tegelijk?

If Target.Value > "" Then Range("j2").Value = WorksheetFunction.CountIf(Range("e4:ac133"), Target.Value)

(e4 tot AC133 is bij alle 4 de bladen gelijk)

Don

 

[don42]

Heb het zo werkend gekregen

Value = WorksheetFunction.CountIf(Sheets("aanvraag 1").Range("data"), Target.Value) + WorksheetFunction.CountIf(Sheets("aanvraag 2").Range("e4:ac133"), Target.Value) + WorksheetFunction.CountIf(Sheets("aanvraag 3").Range("e4:ac133"), Target.Value) + WorksheetFunction.CountIf(Sheets("aanvraag 4").Range("e4:ac133"), Target.Value)

is dit de juiste oplossing of kan het korter?