Office: Datum nach Eingabe automatisch in Zelle einfügen

Hallo,

ich möchte Zellen so formatieren, dass wenn ich in die Zellen etwas eingebe, das aktuelle Datum in der Zelle nebendran eingefügt wird.

Ist bestimmt leicht zu lösen, jedoch funktioniert es bei mir nicht richtig.

Mfg

 

Hallo,

das könntest du mit dem folgenden VBA-Code machen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
    If Target = "" Then
        Target.Offset(0, 1).ClearContents
        Else:
        Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy"))
    End If
End Sub

Bei diesem Code wird der Bereich von A1 bis A10 überwacht. Wenn in diesem Bereich etwas eingetragen wird, dann wird in der Spalte B das aktuelle Datum eingetragen.

Wenn im Bereich von A1 bis A10 der Eintrag gelöscht wird, dann wird auch das Datum in B gelöscht.

Der Code muss in das Modul des entsprechenden Tabellenblattes:

- mit Alt+F11 den VBA-Editor öffnen
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- auf das gewünschte Tabellenblatt unterhalb dieser Datei doppelklicken
- in der rechten Fensterhälfte ist das Codefenster dieser Tabelle sichtbar
- dort den Code einfügen
- speichern und den VBA-Editor mit Alt+F4 schliessen

 

ich wollte das ganze gerne einfacher ohne Makro,

als mit einer if Formel in der Zelle in der das Datum eingegeben wird.

Irgendewie: wenn in Zelle A1 dann Eingabe Datum.

so ungefähr

 

Hallo,

ohne VBA geht es so:

Als vorbereitende Massnahme musst du hier unter Menü Extras - Optionen - Berechnung - Iteration - die maximal Interationszahl auf 1 stellen.

Dann die folgende Formel in B1 (B1 musst du noch als Datum formatieren) die sich dann auf die Eingabe in A1 bezieht:

=WENN(A1="";"";WENN(B1="";JETZT();B1))

Eine Nebenwirkung hat das Ganze: Durch die Einstellungt der Interation werden Zirkelbezüge nicht mehr angezeigt.

 

Super! Danke funktioniert!

 

Hallo Peter

habe änliches Problem möchte aber wenn ich von Spalte A:E etwas eintrage dann soll in Spalte F das aktuelle Datum des Eintrages erscheinen aber nicht aktualisieren, das heisst das wenn ich Excel am nächsten Tag öffne das Datum so bleibt wie wenn ich die spalte geändert habe. und dass über unendliche spalten.

Gruss awwaser

 

Fixter Time Stamp

Hallo Peter, funktioniert super, vielen Dank!. Allerdings wandert das Datum mit, oder?
Wie kann ich denn einen fixen Time-Stamp erstellen (so dass ich das Datum der Eintragung nachträglich tracken kann?

Und Wo im Makro kann ich einstellen, dass das Datum nicht in "B" sondern einer anderen Spalte angezeigt wird?

Vielen Dank!!!

 

bei mir kommt als ergebnis 00.01.1900 00:00, woran kann das liegen?
Das Feld ist als Datum eingestellt....?

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster, Test, Mappe, Beispiel, Fehler, Kalender usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

 

Hallo @dadasdada21,

auf welche Lösung beziehst du dich? In diesem Thread sind mehrere (unterschiedliche) Lösungen angeboten worden.

1. Eine VBA-Makro-Lösung, die das Datum rechts neben der Zelle, in die eingegeben wurde (falls sie im Bereich A1:A10 lag), ausgibt, was der Funktion =JETZT() entspricht, von der aber nur die Datumsbestandteile angezeigt werden.
2. Eine Formellösung, sodass bei einer Eingabe in Zelle A1 in Zelle B1 das Datum bzw. Uhrzeit mittels Funktion JETZT() angezeigt wird.

Deine Zellanzeige 00.01.1900 00:00 ergibt sich, wenn in einer Zelle eine 0 enthalten ist und die Zelle mit "TT.MM.JJJJ hh:mm" formatiert wurde.

 

Es ging um die zweite Lösung. Da habe ich meinen Denkfehler inzwischen gefunden. Das funktioniert wohl nur, wenn die Zelle A1 vorher leer ist. Ich strebe eine Lösung an, in der das Datum aktualisiert wird, wenn sich der Wert der Zelle ändert. Das geht dann wohl nur mit dem makro?
Das bekomme ich aber leider nicht zum fliegen :-(

 

Hallo,

in der deiner Datei waren mehrere Probleme enthalten:

1. Du hast ein Makro4.0-Blatt namens "Makro" erzeugt. In einem solchen Blatt kannst du nicht erwarten, dass ein VBA-Makro funktioniert. Die Excel4.0-Makro-Sprache funktioniert ganz anders. Ich habe deshalb dieses Blatt wieder entfernt, sodass ein normales Arbeitsblatt namens "Tabelle1" übrig bleibt.
2. Du hattest das VBA-Makro, das für die Ereignissteuerung des Change-Ereignisses zuständig ist, doppelt eingefügt: einmal dort, wo es hingehört (nämlich ins Codemodul des Arbeitsblattes "Tabelle1") und ein zweites Mal in ein allgemeines Codemodul (dort hat es nichts verloren - allerdings da es als "Private SUB" deklariert war, war es eh dort funktionslos).

Wird in Zelle A1 ein Wert eingegeben, erscheint in Zelle B1 das Datum der Änderung.
Wird der Wert in A1 entfernt (leere Zelle in A1), dann wird auch das Datum in Zelle B1 entfernt.

 

vielen Dank!