Datum automatisch vervollständigen in Excel
Schritt-für-Schritt-Anleitung
- Öffne Excel und lade die Datei, in der du das Datum automatisch vervollständigen möchtest.
- Öffne den VBA-Editor:
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Füge den Code ein:
- Wähle das entsprechende Arbeitsblatt aus.
- Klicke mit der rechten Maustaste auf das Arbeitsblatt im Projektfenster und wähle „Code anzeigen“.
- Füge den folgenden VBA-Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error GoTo ErrExit
If Not Intersect(Target, Range("B7:B500")) Is Nothing Then
Application.EnableEvents = False
For Each rng In Intersect(Target, Range("B7:B500"))
If rng <> "" Then
rng = DateSerial(Year(Now), Month(rng), Day(rng))
End If
Next
End If
ErrExit:
Application.EnableEvents = True
End Sub
- Speichere die Datei als Makro-fähige Arbeitsmappe (.xlsm).
- Teste die Eingabe in den Zellen B7 bis B500, indem du Tag und Monat eingibst. Excel ergänzt automatisch das aktuelle Jahr.
Häufige Fehler und Lösungen
Alternative Methoden
Eine einfache Möglichkeit, das Excel-Datum automatisch zu vervollständigen, ohne VBA zu verwenden, ist das Formatieren der Zellen als Datum.
- Markiere die Zellen in der Spalte, in denen du das Datum eingeben möchtest.
- Rechtsklick und wähle „Zellen formatieren“.
- Wähle unter „Zahlen“ die Kategorie „Datum“ und wähle das gewünschte Datumsformat.
Jetzt kannst du einfach das Datum im Format „Tag.Monat“ eingeben, und Excel ergänzt das aktuelle Jahr automatisch.
Praktische Beispiele
- Beispiel 1: Wenn du in Zelle B7 „15.03“ eingibst, wird Excel dies automatisch als „15.03.2023“ interpretieren (vorausgesetzt, das aktuelle Jahr ist 2023).
- Beispiel 2: Wenn das Jahr in Zelle B2 steht, kannst du den Code anpassen, um das Jahr aus dieser Zelle zu verwenden:
rng = DateSerial(Range("B2"), Month(rng), Day(rng))
Tipps für Profis
- Nutze Datenüberprüfung in Excel, um sicherzustellen, dass nur gültige Datumsangaben eingegeben werden.
- Experimentiere mit benutzerdefinierten Formaten, um das Erscheinungsbild der Datumsangaben nach deinen Wünschen zu gestalten.
- Verwende die Funktion
Wochentag() in Kombination mit deinem Datum, um weitere Analysen durchzuführen, wie z.B. die Ermittlung von Arbeitstagen.
FAQ: Häufige Fragen
1. Kann ich das Jahr manuell ändern?
Ja, du kannst den Code anpassen, um ein beliebiges Jahr zu verwenden, indem du das Jahr in eine Zelle eingibst und den Code entsprechend anpasst.
2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die beschriebenen Methoden funktionieren in den meisten Excel-Versionen, die VBA unterstützen, wie Excel 2010, 2016 und neuer.
3. Was passiert, wenn ich ein ungültiges Datum eingebe?
In diesem Fall wird Excel eine Fehlermeldung anzeigen. Es ist wichtig, die Zellen korrekt zu formatieren und sicherzustellen, dass nur gültige Datumsformate eingegeben werden.