VBA (Visual Basic for Applications) ist eine in Excel verwendete Programmiersprache, mit der Sie verschiedene Aufgaben automatisieren und Daten manipulieren können. Eine der häufigsten Aufgaben besteht darin, das aktuelle Datum oder den aktuellen Wochentag zu erhalten.
In Excel wird das Datum als Zahl dargestellt, wobei der Tag eine Ganzzahl ist und die Uhrzeit als Dezimalzahl angezeigt wird. Mit VBA können Sie den aktuellen Tag mit einer integrierten Funktion problemlos in Excel abrufen.
Um den aktuellen Tag in Excel abzurufen, können Sie die Funktion verwenden Date. Diese Funktion gibt das aktuelle Datum im Format Jahr-Monat-Tag zurück. Sie können auch die Funktion verwenden Format, um den Tag im gewünschten Format anzuzeigen, z. B. nur die Anzahl des Tages oder eine dreistellige Bezeichnung für den Wochentag.
Beispielcode:
Dim today As String
today = Format(Date, "dd") 'Aktuellen Tag abrufen
In diesem Beispiel deklarieren wir eine Variable today, um den aktuellen Tag zu speichern. Wir verwenden die Format-Funktion, um das aktuelle Datum zu formatieren und nur die Anzahl des Tages (dd) zu erhalten. Dann geben wir den Wert der Variablen today mit der MsgBox-Funktion aus, die eine Nachricht mit dem aktuellen Tag anzeigt.
Auf diese Weise können Sie mit VBA in Excel den aktuellen Tag leicht abrufen und in Ihren Makros oder Programmen verwenden, um abhängig vom aktuellen Datum verschiedene Aktionen auszuführen.
VA VBA Excel:
Es gibt mehrere Möglichkeiten, den aktuellen Tag in VBA Excel abzurufen. Eine der einfachsten Optionen ist die Verwendung der integrierten VBA-Funktion "Date". Diese Funktion gibt das aktuelle Datum zurück. Wenn gewünscht, können Sie verschiedene Methoden und Eigenschaften verwenden, um nur einen Tag, einen Monat oder ein Jahr von diesem Datum zu erhalten.
Beispiel für die Verwendung der Funktion "Date" zum Abrufen des aktuellen Tages:
| Kode: | Dim CurrentDay As Integer CurrentDay = Day(Date) MsgBox "Aktueller Tag: " & CurrentDay |
| Ergebnis: | Ein Meldungsfeld mit dem aktuellen Tag wird angezeigt. |
In diesem Beispiel deklarieren wir eine Variable "CurrentDay" vom Typ Integer und weisen ihr mit der Funktion "Day(Date)" den Wert des aktuellen Tages zu. Dann zeigen wir den aktuellen Tag im Nachrichtenfenster mit der Funktion "MsgBox" an.
Wenn Sie nur den aktuellen Monat oder das aktuelle Jahr abrufen müssen, können Sie ähnliche Funktionen wie "Month(Date)" und "Year(Date)" verwenden. Zum Beispiel:
| Kode: | Dim CurrentMonth As Integer CurrentMonth = Month(Date) MsgBox "Aktueller Monat: " & CurrentMonth Dim CurrentYear As Integer CurrentYear = Year(Date) MsgBox "Aktuelles Jahr: " & CurrentYear |
| Ergebnis: | Ein Meldungsfeld mit dem aktuellen Monat und dem aktuellen Jahr wird angezeigt. |
In diesen Beispielen verwenden wir die Funktionen "Month(Date)" und "Year(Date)", um den aktuellen Monat bzw. das aktuelle Jahr abzurufen, und zeigen sie dann im Meldungsfeld an.
Jetzt, da Sie wissen, wie Sie den aktuellen Tag, Monat oder Jahr in VBA Excel abrufen können, können Sie dieses Wissen verwenden, um verschiedene datumsbezogene Aufgaben zu automatisieren.
So erhalten Sie den aktuellen Tag:
Sie können die Date-Funktion verwenden, um den aktuellen Tag in VBA Excel abzurufen, um das aktuelle Datum zurückzugeben. Die Date-Funktion gibt jedoch alle Datumskomponenten zurück, einschließlich Tag, Monat und Jahr. Wenn Sie nur den aktuellen Tag abrufen müssen, können Sie die Day-Funktion nutzen.
Beispiel für die Verwendung der Day-Funktion zum Abrufen des aktuellen Tages:
Sub GetCurrentDay()Dim currentDay As IntegercurrentDay = Day(Date)MsgBox "Текущий день: " & currentDayEnd SubIn diesem Beispiel wird die Day-Funktion auf die Date-Funktion angewendet, um den aktuellen Tag abzurufen. Der Wert des aktuellen Tages wird dann in der Variablen currentDay gespeichert und mit der MsgBox-Funktion angezeigt.
Neben der Day-Funktion können Sie auch andere Datumsfunktionen wie Month, Year und Weekday verwenden. Sie ermöglichen es Ihnen, den aktuellen Monat, das Jahr und den Wochentag entsprechend zu erhalten.
Ich hoffe, dieses Beispiel hilft Ihnen, den aktuellen Tag in VBA Excel zu erhalten!
Zusammenfassung:
Wenn Sie nur die Nummer des aktuellen Tages erhalten müssen, können Sie die Funktion "Day()" verwenden. Wenn heute beispielsweise der 1. Januar 2025 ist, gibt Day(Date()) den Wert "1" zurück.
In VBA ist es auch möglich, das aktuelle Datum im Format "DD.MM.GG". Verwenden Sie dazu die Funktion "Format(Date(), "dd.mm.yy")". Wenn heute beispielsweise der 1. Januar 2025 ist, gibt die Funktion Format(Date(), "dd.mm.yy") den Wert "01.01.23" zurück.
Aus Gründen der Bequemlichkeit können Sie das empfangene Datum einer Variablen zuweisen, um es dann im Code Ihres Programms zu verwenden. Zum Beispiel:
Dim currentDate As DatecurrentDate = Date()Jetzt enthält die Variable "currentDate" das aktuelle Datum, das Sie für die erforderlichen Operationen in Ihrem Programm verwenden können.
