Office: (Office 2016) In andere *.xls zählen mit Bedingung und ohne Duplikate

Hallo zusammen,
ich benötige mal wieder eure Hilfe, ich werde einfach nicht fündig, bzw. bekomme es nicht hin.

Ich möchte per VBA aus einer geschlossenen *.xls zählen, wieviele
Zeilen in Spalte H (Format:Datum, z.B. 12.02.2022 13:45) das Datum im Monat 2 (also Februar) haben, und dabei die Duplikate aus den Einträgen in Spalte A nicht mitzählt.

Die geschlossene *.xls ist mit werten von Spalte A-I gefüllt. Datum steht in Spalte H, und Bedingung für Duplikate in A.

Wichtig ist, zuerst Filtern nach z.B. Februar und dann die Duplikate entfernen.
Ich benötige dann nur die Zahl wieviele "Zeilen" es sind.

Ich hoffe, dass mir jemand helfen kann, meine VBA kenntnisse sind nicht so gut, meist habe ich mir alles zusammengeschnipselt, diesmal komme ich leider nicht weiter.

 

in einer geschlöossenen Datei kannst Du nicht zählen.

 

ok, verstehe.
Kann man sie im Hintergrund öffnen? also man es praktisch nicht mitbekommt, dass diese geöffnet wird.

 

Das Makro ist in der Ziekdatei und Zieltabelle ist aktiv.
Datei öffnen schließen kannst Du mit dem Makrorecorder aufzeichen, bei Close false dahinterschreiben da nicht gespeichert.

Code:

Option Explicit

Sub Duplikate()
   With Workbooks("Forum 11.xlsm").Worksheets("Tabelle1")
        If Not .AutoFilterMode = True Then
            .Range("A1").AutoFilter
        End If
        .UsedRange.AutoFilter Field:=1, Criteria1:="1"
        .UsedRange.SpecialCells(xlCellTypeVisible).Copy Sheets("Tabelle2").Range("A1")
        ActiveSheet.UsedRange.RemoveDuplicates Columns:=Array(1, 8), Header _
            :=xlYes
    End With
End Sub

Gruß Hajo