Datumseingabe mit Inputbox in Excel VBA
Schritt-für-Schritt-Anleitung
Um ein Datum per Inputbox in Excel VBA einzulesen und korrekt zu formatieren, gehe wie folgt vor:
-
Öffne den Visual Basic for Applications (VBA) Editor in Excel. Dies kannst Du tun, indem Du Alt + F11 drückst.
-
Erstelle ein neues Modul über Einfügen > Modul.
-
Füge den folgenden Code ein:
Sub DatumEingabe()
Dim d As Date
On Error Resume Next
d = CDate(InputBox("Bitte ein gültiges Datum eingeben:", "z.B: 02.12.2014"))
On Error GoTo 0
If Year(d) = 1899 Then
MsgBox "Falsche Datumseingabe!", vbCritical
Exit Sub
End If
' Hier kannst du das Datum weiterverarbeiten
Range("A1").Value = d ' Beispiel: Datum in Zelle A1 einfügen
End Sub
-
Schließe den VBA Editor und gehe zurück zu Excel.
-
Führe das Makro aus, um die Inputbox zu testen.
Häufige Fehler und Lösungen
Alternative Methoden
Falls Du keine VBA-Lösung verwenden möchtest, kannst Du auch die Datenüberprüfung in Excel nutzen:
- Markiere die Zelle, in die das Datum eingegeben werden soll.
- Gehe zu
Daten > Datenüberprüfung.
- Wähle unter „Erlauben“ die Option „Datum“ aus und lege die gewünschten Bedingungen fest.
So kannst Du sicherstellen, dass nur gültige Datumsangaben eingegeben werden.
Praktische Beispiele
Hier ist ein weiteres Beispiel für die Nutzung einer Inputbox zur Datumseingabe:
Sub EingabeUndPruefung()
Dim eingabe As String
Dim d As Date
eingabe = InputBox("Bitte ein Datum im Format TT.MM.JJJJ eingeben:")
On Error Resume Next
d = CDate(eingabe)
On Error GoTo 0
If d = 0 Then
MsgBox "Ungültiges Datum!", vbExclamation
Else
MsgBox "Das eingegebene Datum ist: " & d
End If
End Sub
Tipps für Profis
- Datum formatieren: Stelle sicher, dass die Zelle, in die du das Datum eingibst, das richtige Datumsformat hat (TT.MM.JJJJ), um Missverständnisse zu vermeiden.
- Debugging: Nutze
Debug.Print d, um den Wert von d während der Ausführung zu überprüfen.
- Fehlerbehandlung: Verwende
On Error GoTo, um spezifische Fehlerbehandlung zu implementieren, anstatt nur On Error Resume Next.
FAQ: Häufige Fragen
1. Wie kann ich sicherstellen, dass nur gültige Daten eingegeben werden?
Verwende die On Error-Anweisung, um ungültige Eingaben abzufangen und entsprechende Fehlermeldungen anzuzeigen.
2. Funktioniert das auch in Excel Online?
Leider ist VBA nicht in Excel Online verfügbar. Du musst die Desktop-Version von Excel verwenden, um VBA-Makros zu erstellen und auszuführen.