CountIf mit Datum(Jahr)
28.09.2019 21:23:35
Marc
ich möchte aus einer Spalte, die unterschiedliche Datumswerte enthält mit CountIf zählen wie oft ein bestimmtes Jahr vorhanden ist mit folgendem Code:
Sub ExToEx()
Dim Per As Date
Per = Year(Date)
Dim Num As Integer
Dim PeriodCount As Long
Dim adr As Range
Set adr = ThisWorkbook.Worksheets("Dividenden").Range("A1:A50")
For PeriodCount = 1 To 11
Num = WorksheetFunction.CountIf(Year(adr), Per) '''Typen unverträglich
Debug.Print Num
Per = Year(Date) - 1
Next PeriodCount
End Sub
Ich bekomme die Meldung Typen unverträglich und weiß nicht weshalb. Gruß,
Marc