Vba: so fügen sie ein datum zwischen zwei daten hinzu

Sie können die folgende Syntax in VBA verwenden, um die Summe zu berechnen, wenn die Zellen zwischen zwei Datumsangaben liegen:

 Sub SumifBetweenDates()
Range(" E3 ") = WorksheetFunction.SumIfs(Range(" B2:B9 "), Range(" A2:A9 "), " >= " & [E1], _
                                                       Range(" A2:A9 "), " <= " & [E2])
End Sub

In diesem speziellen Beispiel werden die Werte im Bereich B2:B9 nur dann summiert, wenn das Datum im Bereich A2:A9 zwischen dem Startdatum in Zelle E1 und dem Enddatum in Zelle E2 liegt.

Die Summe wird dann in Zelle E3 angezeigt.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: So fügen Sie If zwischen zwei Datumsangaben in VBA hinzu

Angenommen, wir verfügen über den folgenden Datensatz mit Informationen über die Gesamtzahl der zu verschiedenen Terminen in einem Einzelhandelsgeschäft verkauften Produkte:

Nehmen wir an, wir möchten die Summe der Verkäufe nur für Daten zwischen dem 07.01.2023 und dem 26.01.2023 berechnen.

Dazu können wir das folgende Makro erstellen:

 Sub SumifBetweenDates()
Range(" E3 ") = WorksheetFunction.SumIfs(Range(" B2:B9 "), Range(" A2:A9 "), " >= " & [E1], _
                                                       Range(" A2:A9 "), " <= " & [E2])
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass Zelle E3 den Wert 16 enthält.

Dies stellt die Summe der Werte in der Verkaufsspalte dar, wobei das Datum zwischen dem 07.01.2023 und dem 26.01.2023 liegt.

Wir können überprüfen, ob dies korrekt ist, indem wir manuell die Summe der Werte in der Spalte „Umsätze“ berechnen, wobei der entsprechende Wert in der Spalte „Datum“ zwischen dem 07.01.2023 und dem 26.01.2023 liegt:

Summe der Verkäufe: 3 + 7 + 6 = 16 .

Dies entspricht dem von VBA berechneten Wert.

Beachten Sie, dass, wenn Sie die Start- und Enddatumswerte in den Zellen E1 bzw. E2 ändern und das Makro erneut ausführen, die Summe der Verkäufe für die neuen Daten berechnet wird.

Hinweis : Es wird davon ausgegangen, dass die Werte in der Datumsspalte in Excel bereits als Datumsangaben formatiert sind.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So schreiben Sie SUMIF- und SUMIFS-Funktionen
VBA: So schreiben Sie COUNTIF- und COUNTIFS-Funktionen
VBA: So schreiben Sie die Funktionen AVERAGEIF und AVERAGEIFS