eintrag = InputBox("Eingabe Datum: ", "Datum", Date)
wenn abbrechen gedrückt wird ist eintrag leer.
wenn du eine eingabepüfung brauchst musst du noch prüfen,ob eintrag als datum verwendbar ist und das z.b. durch eine schleife do while ... abfangen.
prinzipiell so:
Um eine Excel Zelle mit dem aktuellen Datum vorbelegen zu können, dabei aber die Möglichkeit zu behalten, das Datum später zu ändern, kannst du folgenden VBA-Code verwenden:
Öffne Excel und gehe zu dem Arbeitsblatt, in dem du die Zelle vorbelegen möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Doppelklicke auf DieseArbeitsmappe im Projekt-Explorer.
Füge den folgenden Code in das Fenster ein:
Private Sub Worksheet_Activate()
If [G8] = "" Then
[G8] = Date
End If
End SubSchließe den VBA-Editor und gehe zurück zu Excel.
Wenn du das Arbeitsblatt nun öffnest, wird die Zelle G8 automatisch mit dem aktuellen Datum vorbelegt, sofern sie leer ist. Du kannst das Datum trotzdem jederzeit ändern.
Fehler: Zelle bleibt unverändert, obwohl das Datum vorbelegt ist.
Fehler: VBA-Code wird nicht ausgeführt.
Eine alternative Methode, um Excel Zellen vorbelegen zu können, ist die Verwendung einer InputBox. Damit kannst du den Benutzer direkt nach einem Datum fragen:
Sub EingabeDatum()
Dim eintrag As Variant
eintrag = InputBox("Eingabe Datum: ", "Datum", Date)
If eintrag <> "" Then
If IsDate(eintrag) Then
[G8] = eintrag
Else
MsgBox "Bitte ein gültiges Datum eingeben."
End If
End If
End SubFühre dieses Makro manuell aus, um die Zelle G8 mit einem benutzerdefinierten Datum zu belegen.
Beispiel 1: Vorbelegung einer Zelle mit dem heutigen Datum, wenn die Zelle leer ist.
Beispiel 2: Verwende die InputBox, um den Benutzern die Möglichkeit zu geben, ein Datum einzugeben, das dann in die Zelle G8 geschrieben wird.
Nutze die Worksheet_Change-Ereignisprozedur, um weitere Automatisierungen zu integrieren, wenn die Zelle geändert wird.
Überlege, eine Validierung für das eingegebene Datum einzuführen, um sicherzustellen, dass nur korrekte Daten in die Zelle geschrieben werden.
1. Kann ich mehrere Zellen gleichzeitig vorbelegen? Ja, du kannst den Code anpassen, um mehrere Zellen gleichzeitig zu überprüfen und zu belegen.
2. Was passiert, wenn ich das Datum in der Zelle ändere? Wenn du das Datum manuell änderst, bleibt die Änderung bestehen, bis du das Arbeitsblatt erneut öffnest, wenn die Zelle leer ist, wird sie wieder mit dem aktuellen Datum vorbelegt.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen