So verwenden sie eomonth in vba (mit beispiel)

Sie können die EoMonth- Methode in VBA verwenden, um den letzten Tag des Monats für ein bestimmtes Datum zurückzugeben.

Hier ist eine gängige Methode, diese Methode in der Praxis anzuwenden:

 Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = Application.WorksheetFunction.EoMonth(Range(" A " & i), 0)
    Range(" C " & i).NumberFormat = " m/d/yyyy "
Next i

End Sub

Dieses spezielle Makro findet den letzten Tag des Monats für jedes Datum im Bereich A2:A11 und zeigt dieses Datum in der entsprechenden Zelle im Bereich C2:C11 an.

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

Beispiel: Verwendung von EoMonth in VBA

Angenommen, wir haben den folgenden Datensatz in Excel, der Informationen über die Verkäufe eines Unternehmens zu verschiedenen Terminen enthält:

Angenommen, wir möchten für jedes Datum in Spalte A den letzten Tag des Monats finden und ihn in Spalte C anzeigen.

Dazu können wir das folgende Makro erstellen:

 Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = Application.WorksheetFunction.EoMonth(Range(" A " & i), 0)
    Range(" C " & i).NumberFormat = " m/d/yyyy "
Next i

End Sub

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

Beachten Sie, dass Spalte C den letzten Tag des Monats für jedes entsprechende Datum in Spalte A enthält.

Beachten Sie, dass wir die NumberFormat- Eigenschaft verwendet haben, um Datumswerte in einem erkennbaren Datumsformat in Spalte C anstelle von Seriennummern anzuzeigen, was das Standardformat in Excel ist.

Beachten Sie außerdem, dass das letzte Argument der EoMonth- Methode die Anzahl der Monate vor oder zurück angibt, die bei der Berechnung des letzten Tages des Monats verwendet werden sollen.

In diesem Beispiel haben wir den Wert 0 verwendet, um anzugeben, dass wir den letzten Tag des aktuellen Monats ermitteln möchten.

Wir könnten jedoch stattdessen einen Wert von -1 verwenden, um anzugeben, dass wir den letzten Tag des vorherigen Monats finden möchten, oder einen Wert von 1 , um anzugeben, dass wir den letzten Tag des nächsten Monats finden möchten.

Hinweis : Die vollständige Dokumentation der EoMonth- Methode in VBA finden Sie hier .

Zusätzliche Ressourcen

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

So vergleichen Sie Daten in VBA
So konvertieren Sie eine Zeichenfolge in VBA in ein Datum
So berechnen Sie Tage zwischen zwei Daten in VBA