Zutreffende Datumsangaben "zählen" zu Statistikzwecken

[Royalty]

Erstmal ein freundliches Hallo.

In Spalte D meiner Tabelle habe ich Datumsangaben stehen. Über eine Userform möchte ich nun eine Abfrage erstellen, in der ich ein Start- und ein Enddatum vorgebe und dann die Anzahl der zutreffenden Daten angezeigt werden.

Beispiel:
Spalte D
01.01.2021
15.01.2021
30.06.2021
01.07.2021

In der Userform wird jetzt von 15.01.2021 bis 30.06.2021 angegeben und Ergebnis soll dann 2 sein

Das eigentliche Ziel war anfangs, dass ich auf dem Tabellenblatt "Access-Daten" die Quartale mit Jahr ausgebe, aber das hat leider nicht funktioniert (Formel ist noch in der Zelle gespeichert - siehe Anhang - und funktioniert leider nicht - diese hatte ich aus meinen Lehrunterlagen).

Mit Eingabe des Start und Enddatums bin ich dann auch etwas flexibler, wobei ich hier irgendwie nicht weiter komme.
Habe zwei Varianten mit Autofilter probiert, die aber nicht so funktionierten, wie ich es mir vorgestellt hatte.

Die Auswertungsdaten stehen im Arbeitsblatt "Access-Daten" und zum Zwischenspeichern der Ergebnisse nutze ich das Arbeitsblatt "Gesamtauswertung"

Ich füge mal meine Testdatei als Anlage bei. Vielleicht hat jemand einen Tipp, wie ich das einfach hinbekomme.

Gruß und Dank vorab.
Royalty

[Kuwer]

Hallo Royalty,

z.B. so:

Code:

Private Sub CommandButton1_Click()
  Dim Anzahl As Double
  'hier müsste der Code zur Ermittlung der Anzahl der Monate hin
  With Tabelle1.ListObjects(1).DataBodyRange
    Anzahl = Application.CountIfs(.Columns(4), ">=" & CDbl(CDate(TextBox1)), .Columns(4), "<=" & CDbl(CDate(TextBox2)))
  End With
  Worksheets("Gesamtauswertung").Cells(2, 8) = Anzahl
  Label20 = Anzahl
End Sub

Gruß Uwe

[Royalty]

Hallo Uwe,
vielen Dank dafür. Funktioniert prima
Gruß
Royalty

[snb]

Ohne Button (weil überflüsig):

Code:

Private Sub UserForm_Initialize()
  With Sheets("Gesamtauswertung")
    TextBox1.Value = Format(.Cells(2, 6))
    TextBox2 = Format(.Cells(2, 7))
    Label20 = DateDiff("m", .Cells(2, 6), .Cells(2, 7))
  End With

  - - - - -
End Sub

[Royalty]

Danke für diie Anmerkung.