Option Explicit
Sub WochentagVBA()
Dim Rng As Range
Set Rng = Range("A1")
If IsDate(Rng) Then
Rng.Activate 'optional (nicht notwendig)
Select Case Weekday(CDate(Rng), vbMonday)
Case Is = 7
MsgBox "Sonntag", , Rng.Value
Case Is = 1
MsgBox "Monteg", , Rng.Value
Case Is = 2
MsgBox "Dienstag", , Rng.Value
Case Is = 3
MsgBox "Mittwoch", , Rng.Value
Case Is = 4
MsgBox "Donnerstag", , Rng.Value
Case Is = 5
MsgBox "Freitag", , Rng.Value
Case Is = 6
MsgBox "Samstag", , Rng.Value
End Select
Else
MsgBox "Es steht kein gültiges Datum in A1", vbCritical
End If
Set Rng = Nothing
End Sub
Um den Wochentag aus einem Datum in Excel zu ermitteln, kannst du folgende Schritte befolgen:
Datum eingeben: Stelle sicher, dass das Datum, von dem du den Wochentag ermitteln möchtest, in einer Zelle (z.B. A1) steht.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Modul erstellen: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsm)“ und wähle „Einfügen“ > „Modul“.
Code einfügen: Kopiere den folgenden Code in das Modul:
Option Explicit
Sub WochentagVBA()
Dim Rng As Range
Set Rng = Range("A1")
If IsDate(Rng) Then
MsgBox Format(Rng, "DDDD") ' Gibt den Wochentag aus
Else
MsgBox "Es steht kein gültiges Datum in A1", vbCritical
End If
Set Rng = Nothing
End SubMakro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle das Makro „WochentagVBA“ und klicke auf „Ausführen“. Du erhältst eine Message Box mit dem entsprechenden Wochentag.
Fehler: „Es steht kein gültiges Datum in A1“: Stelle sicher, dass das Datum in Zelle A1 korrekt eingegeben und im richtigen Format ist (z.B. TT.MM.JJJJ).
Fehler: Kein Wochentag angezeigt: Überprüfe, ob das Makro korrekt im VBA-Editor eingefügt wurde und keine Syntaxfehler enthält.
Excel-Funktion verwenden: Du kannst auch die eingebaute Funktion =TEXT(A1;"TTTT") verwenden, um den Wochentag aus einem Datum zu extrahieren, ohne VBA zu nutzen.
Wochentag in Zahlen: Mit der Funktion =WOCHENTAG(A1; 2) erhältst du den Wochentag als Zahl (1 = Montag, 7 = Sonntag).
Beispiel 1: Wenn in Zelle A1 das Datum 09.11.2009 steht, gibt das Makro den Wochentag „Montag“ aus.
Beispiel 2: Das Verwenden der Formel =TEXT(A1;"TTTT") in einer anderen Zelle zeigt ebenfalls „Montag“ an.
Nutze die Funktion =WOCHENTAG(A1; 2) in Kombination mit SVERWEIS, um den Wochentag in einer Tabelle zu referenzieren.
Wenn du den Wochentag in einer bestimmten Textform benötigst (z.B. „Montag“ anstelle von „1“), kannst du die Formatierung in VBA anpassen.
1. Wie kann ich den Wochentag aus einem Datum in Textform erhalten?
Verwende die Funktion =TEXT(A1;"TTTT"), um den Wochentag als Text auszugeben.
2. Was mache ich, wenn die Daten in einem anderen Format vorliegen?
Stelle sicher, dass das Datum korrekt formatiert ist. Du kannst auch die Funktion DATUM(JJJJ; MM; TT) verwenden, um ein Datum aus einzelnen Komponenten zu erstellen.
3. Ist VBA notwendig, um den Wochentag zu ermitteln?
Nein, die Standardfunktionen in Excel reichen aus, um den Wochentag zu ermitteln, jedoch bietet VBA mehr Flexibilität und Anpassungsmöglichkeiten.