Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum+Zeit speichern wenn zelle geändert

Datum+Zeit speichern wenn zelle geändert
06.08.2014 11:47:11
Daniel
Hallo,
und zwar möchte ich wenn ich in einem Bereich etwas ändere,
also eine Zelle das aktuelle Datum und Zeit in der Spalte xy eingetragen wird.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B50:B1000"), Target) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = Date
End Sub

Dieses Beispiel würde mir schon reichen, aber statt es immer eine Spalte weiter rechts einzutragen möchte ich es in einer bestimmten Spalte geändert haben.
Hier ein Beispiel:
Ich ändere Zelle A4 und in G4 soll nun der aktuelle Zeitpunkt eingetragen werden.
Jetzt ändere ich B4 und in G4 soll nun der aktuelle Zeitpunkt eingetragen werden.
Zelle A1 ändere ich und in G1 soll nun der aktuelle Zeitpunkt eingetragen werden.
Hier die Tabelle: http://puu.sh/aGTct/3f82fb3e4d.png
Wäre überaus dankbar, wenn mir jmd. helfen könnte.
mfg

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum+Zeit speichern wenn zelle geändert
06.08.2014 11:54:54
Hajo_Zi
Cells(Target.row, 7) = Date

AW: Datum+Zeit speichern wenn zelle geändert
06.08.2014 11:55:57
Robert
Hallo,
Statt
Target.Offset(0,1).Value = Date
Schreibe:
ActiveSheet.Cells(Target.Row, 7) = Date
Viele Grüße
Robert

Anzeige
AW: Datum+Zeit speichern wenn zelle geändert
06.08.2014 12:19:59
Daniel
Danke! funktioniert:-)

AW: Datum+Zeit speichern wenn zelle geändert
06.08.2014 13:07:23
Tino
Hallo,
evtl. geht es so?!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Range("A:H"), Target)
If rng Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each rng In rng.Areas
rng.EntireRow.Columns(7).Value = Now
Next rng
Application.EnableEvents = True
End Sub
Gruß Tino
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Datum und Zeit speichern bei Zellenänderung in Excel


Schritt-für-Schritt-Anleitung

Um in Excel das aktuelle Datum und die Uhrzeit in einer bestimmten Spalte zu speichern, wenn eine Zelle geändert wird, kannst du den folgenden VBA-Code verwenden:

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Wähle das entsprechende Arbeitsblatt aus, auf dem die Änderungen verfolgt werden sollen (z.B. „Tabelle1“).
  3. Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Intersect(Range("A:H"), Target)
    If rng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each rng In rng.Areas
        rng.EntireRow.Cells(7).Value = Now ' In Spalte G (7. Spalte) wird der Zeitstempel gesetzt
    Next rng
    Application.EnableEvents = True
End Sub
  1. Schließe den VBA-Editor und kehre zu deinem Arbeitsblatt zurück.
  2. Teste die Funktion, indem du eine Zelle in den Spalten A bis H änderst. Der aktuelle Zeitstempel sollte in der entsprechenden Zeile in Spalte G erscheinen.

Häufige Fehler und Lösungen

Fehler: Der Zeitstempel wird nicht gesetzt.
Lösung: Stelle sicher, dass die Makros aktiviert sind. Gehe zu Datei -> Optionen -> Sicherheitscenter -> Einstellungen für das Sicherheitscenter -> Einstellungen für Makros und aktiviere die Makros.

Fehler: Es wird keine Zeit angezeigt.
Lösung: Überprüfe den Code und stelle sicher, dass die richtige Spalte angegeben ist (in diesem Fall Spalte G).


Alternative Methoden

Eine alternative Methode, um einen Zeitstempel in Excel zu setzen, ist die Verwendung einer Formel zusammen mit der Funktion JETZT(). Beachte, dass diese Methode nicht dynamisch ist und sich nicht automatisch aktualisiert, wenn die Zelle geändert wird. Sie kann jedoch in Kombination mit einer Schaltfläche verwendet werden, die den Zeitstempel manuell setzt.


Praktische Beispiele

  1. Einfügen des Zeitstempels bei Änderungen in Spalte A:

    • Wenn du in Zelle A4 eine Änderung vornimmst, wird in G4 der aktuelle Zeitstempel eingefügt.
  2. Anpassung des Codes für andere Spalten:

    • Um den Zeitstempel in einer anderen Spalte zu speichern, ändere die Zahl 7 im Code in die entsprechende Spaltennummer.

Tipps für Profis

  • Verwende Now anstelle von Date, wenn du auch die Uhrzeit speichern möchtest. Date speichert nur das Datum ohne die Uhrzeit.
  • Du kannst den Code anpassen, um unterschiedliche Zeitstempel für verschiedene Spalten zu erstellen, je nach der Zelle, die geändert wurde.

FAQ: Häufige Fragen

1. Wie kann ich den Zeitstempel nur für bestimmte Zellen setzen?
Du kannst die Intersect-Funktion anpassen und nur die gewünschten Zellen angeben, z.B. Range("A1, B2, C3").

2. Was ist der Unterschied zwischen Date und Now?
Date gibt nur das aktuelle Datum zurück, während Now sowohl das aktuelle Datum als auch die Uhrzeit zurückgibt. Verwende Now, wenn du einen detaillierteren Zeitstempel benötigst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige