Ich möchte, dass wenn in Zelle A1 ein Wert eingetragen wird, in Zelle B1 automatisch das aktuelle Datum (Systemdatum) eingetragen wird. Dieses Datum soll aber später nicht mehr aktualisiert werden.
Hat jemand einen Tip ?
Vorab Danke!
michael
Sub Datum()
Application.SendKeys Keys:="^{.}{EINGABE}"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
Else
Target.Offset(0, 1).Value = Date
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
Target.Offset(0, 1).Value = Date
Else
Target.Offset(0, 1).ClearContents
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$A$1" Then Exit Sub
Range("B1").Value = Date
End Sub
Um das aktuelle Datum in Excel einzufügen, ohne dass es sich aktualisiert, kannst du ein Ereignismakro verwenden. Hier ist die einfache Schritt-für-Schritt-Anleitung:
Öffne Excel und gehe zu dem Arbeitsblatt, in das du das Datum einfügen möchtest.
Rechtsklicke auf den Tabellennamen unten links und wähle „Code anzeigen“.
Füge den folgenden VBA-Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = Date
End Sub
Schließe den VBA-Editor und kehre zu deinem Arbeitsblatt zurück.
Gib einen Wert in Zelle A1 ein. In Zelle B1 wird dann das aktuelle Datum eingefügt, ohne dass es sich später aktualisiert.
Fehler: Das Datum wird nicht eingefügt.
Fehler: Das Datum aktualisiert sich trotzdem.
=HEUTE() nicht, da diese automatisch aktualisiert wird. Nutze stattdessen das oben gezeigte Makro.Falls du kein Makro verwenden möchtest, gibt es eine Tastenkombination, die dir hilft, das aktuelle Datum ohne Aktualisierung einzufügen:
Hier sind einige Anwendungsbeispiele für das Einfügen des aktuellen Datums in Excel:
Mehrere Zellen gleichzeitig: Wenn du in den Zellen A1:A100 Werte eingibst, kannst du den folgenden Code verwenden, um das Datum in die benachbarte Spalte (B1:B100) einzufügen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
Target.Offset(0, 1).Value = Date
Else
Target.Offset(0, 1).ClearContents
End If
End Sub
Zeitstempel bei Dateneingabe: Du kannst das Datum auch automatisch einfügen, wenn du einen Wert in eine andere Zelle eingibst, indem du den Code entsprechend anpasst.
=HEUTE(), wenn du ein Datum einfügen möchtest, das sich nicht ändern soll.SendKeys-Methode für einfache Automatisierung. Dieser Ansatz ist jedoch weniger stabil als das Einfügen von VBA-Code.1. Wie kann ich das Datum automatisch in Excel einfügen, ohne dass es sich aktualisiert?
Du kannst ein Ereignismakro verwenden, um das aktuelle Datum in eine Zelle einzufügen, wenn du einen Wert in eine andere Zelle eingibst.
2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die oben genannten Methoden sollten in den meisten Excel-Versionen funktionieren, die VBA unterstützen.
3. Gibt es eine Möglichkeit, das Datum manuell einzugeben?
Ja, du kannst einfach die Tastenkombination Strg + . verwenden, um das aktuelle Datum ohne Aktualisierung einzufügen.
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