Unique (Application.WorksheetFunction.Unique)
Müller
Ich möchte diese Funktion benutzen, um schnell vorkommende Stadtteile in einem Zeitraum für eine Statistik auszulesen. Das habe ich bis jetzt per Zählschleife realisiert.
Die Funktion Application.WorksheetFunction.Unique bietet die Eingabe einer Bedingung und da würde ich gern die Auswertung auf einen Datumsbereich begrenzen, ohne dass ich die Daten vorher Filtern und kopieren muss. Leider komme ich so nicht zum Ziel. Kann mir Jemand helfen?
Dim arr As Variant, arr1 As Variant
Dim von As Date
von = "14.04.2024"
arr = Range("M3:M" & Cells(Rows.Count, "A").End(xlUp).Row)
arr1 = Range("S3:S" & Cells(Rows.Count, "A").End(xlUp).Row)
arr = Application.WorksheetFunction.Unique(arr, CDbl(arr1) >= CDbl(von))
...und damit komme ich nicht weiter! Fehlermeldung: Typen unverträglich.