Office: In Zelle Datum eintragen, wann "erstellt" und wann"zuletzt geändert"

Hallo liebes Forum,

ich bräuchte da eure Hilfe.
Ich möchte gern in eine Zelle eintragen, wann die Zeile das erste mal mit Daten befüllt wurde. Dieses Datum soll sich bei einer späteren Bearbeitung der Zeile nicht mehr ändern. In eine weitere Zelle soll dann das Datum, wann die Zeile zuletzt geändert wurde.
Sollten ganze Zeilen gelöscht werden, soll dann auch aus diesen Zellen das Datum entfernt werden.

Ich habe meine Beispieldatei beigefügt. Das funktioniert soweit ganz gut, wenn es eine Änderung gibt. Lösche ich allerdings in einer Zelle einen Wert, verschwindet das Datum auch. Was muss hier geändert werden?

Bitte um eure Hilfe.

Vielen Dank, schon jetzt im Voraus.

Gruß Jens

:)

 

Hallo Jens,

Ich denke einiges!

Der Code versucht, einen Teil der Aufgabenstellung abzudecken.

Nachstehend ein paar Anmerkungen zur Aufgabenstellung, so wie ich es aus Deiner Beschreibung herauslese.

Neue Zeile einfügen
- wie stellst Du Dir das vor?
- wann soll das Datum in Fx eingetragen werden?

Einzelnen Wert ändern
- Datum in Ex wird aktualisiert

Einzelnen Wert löschen
- mindestens 1 Zelle aus dem Bereich Ax : Dx enthält noch Daten
- Datum in Ex wird aktualisiert

Eine Zeile löschen (Ax : Dx)
- die Datumswerte in Ex : Fx werden auch gelöscht

mehrere Zeilen in einem Rutsch löschen
- das soll nicht möglich sein

Der Bereich A : D ist nicht geschützt. Jedoch der Bereich E : F; er kann manuell nicht überschrieben werden.

 

Hallo Aloys,

vielen Dank, das du dich mit meinem Problem befassen möchtest.
ich versuche mal, dir auf deine Fragen zu antworten:

Neue Zeile einfügen
- wie stellst Du Dir das vor?
- wann soll das Datum in Fx eingetragen werden?
*******
Sobald das erste mal etwas in eine Zeile geschrieben wird.
Bsp. 10 Zeilen enthalten bereits Werte, ab Zeile 11 ist Tabelle noch leer, sobald etwas in Zeile 11 geschrieben wird, soll das Datum mit Zeit eingetragen werden, dieses Datum darf sich bei späterer Änderung der Zeile nicht mehr ändern


Einzelnen Wert ändern
- Datum in Ex wird aktualisiert
*******
Genau. Wenn Daten in einer Zeile bereits vorhanden sind und geändert werden, soll hier das Datum mit Zeit, der Änderung eingetragen werden.

Einzelnen Wert löschen
- mindestens 1 Zelle aus dem Bereich Ax : Dx enthält noch Daten
- Datum in Ex wird aktualisiert
*******
Genau. Solang noch Werte in diesem Bereich stehen, sollen auch die Datumsangaben stehen bleiben.

Eine Zeile löschen (Ax : Dx)
- die Datumswerte in Ex : Fx werden auch gelöscht
*******
Richtig. Wird z.B. eine komplette Zeile aus der Tabelle gelöscht, sollen auch alle Datumswerte gelöscht werden.

mehrere Zeilen in einem Rutsch löschen
- das soll nicht möglich sein
*******
Nein das braucht so nicht sein.

Der Bereich A : D ist nicht geschützt. Jedoch der Bereich E : F; er kann manuell nicht überschrieben werden
*******
Das wäre super.


Ich möchte mit dem Ganzen überwachen, wann ein Datensatz angelegt und zuletzt bearbeitet wurde.

Kannst du mir dabei helfen?


Gruß Jens

 

Hallo Aloys,

vielen Dank, das du dich mit meinem Problem befassen möchtest.
ich versuche mal, dir auf deine Fragen zu antworten:

Neue Zeile einfügen
- wie stellst Du Dir das vor?
- wann soll das Datum in Fx eingetragen werden?
*******
Sobald das erste mal etwas in eine Zeile geschrieben wird.
Bsp. 10 Zeilen enthalten bereits Werte, ab Zeile 11 ist Tabelle noch leer, sobald etwas in Zeile 11 geschrieben wird, soll das Datum mit Zeit eingetragen werden, dieses Datum darf sich bei späterer Änderung der Zeile nicht mehr ändern


Einzelnen Wert ändern
- Datum in Ex wird aktualisiert
*******
Genau. Wenn Daten in einer Zeile bereits vorhanden sind und geändert werden, soll hier das Datum mit Zeit, der Änderung eingetragen werden.

Einzelnen Wert löschen
- mindestens 1 Zelle aus dem Bereich Ax : Dx enthält noch Daten
- Datum in Ex wird aktualisiert
*******
Genau. Solang noch Werte in diesem Bereich stehen, sollen auch die Datumsangaben stehen bleiben.

Eine Zeile löschen (Ax : Dx)
- die Datumswerte in Ex : Fx werden auch gelöscht
*******
Richtig. Wird z.B. eine komplette Zeile aus der Tabelle gelöscht, sollen auch alle Datumswerte gelöscht werden.

mehrere Zeilen in einem Rutsch löschen
- das soll nicht möglich sein
*******
Nein das braucht so nicht sein.

Der Bereich A : D ist nicht geschützt. Jedoch der Bereich E : F; er kann manuell nicht überschrieben werden
*******
Das wäre super.


Ich möchte mit dem Ganzen überwachen, wann ein Datensatz angelegt und zuletzt bearbeitet wurde.

Kannst du mir dabei helfen?


Gruß Jens

 

Vielleicht hilft das:

Code:

Änderungen im Bereich "A1:D10" werden erfasst, auch solche, die mehrere Zellen betreffen, zB. etwas in einen Bereich hineinkopieren, und schon hat man mehrere Zellen abzuarbeiten. Man weiss ja nie, der Teufel schläft nicht.

 

Hallo Barbara,

vielen herzlichen Dank, für deine Antwort und den Code.
Ich werde jetzt damit mal bisschen probieren, aber es scheint so, als ist es genau das was ich mir gewünscht habe.

Es ist genial.


Gruß Jens

 

Hallo Barbara,

nun bin ich es doch nochmal.
Was muss ich ändern, wenn ich den Suchbereich später erweitern möchte?

If Intersect(rZelle, Range("A1*biggrin.gif*10")) Is Nothing Then Exit Sub
lZeile = rZelle.Row
If rZelle "" And Cells(lZeile, 5) = "" Then
Cells(lZeile, 5) = CDate(Format(Now, "dd.mm.yyyy hh:mm:ss"))
End If
With Application.WorksheetFunction
If Join(.Transpose(.Transpose(Range(Cells(lZeile, 1), Cells(lZeile, 4)))), "") = "" Then

.....Range("A1*biggrin.gif*10")) das ist mir klar.
Aber wie sieht es mit der Zeile If Join(.Transpose(........... aus. Muss hier dann auch angepasst werden?

Vielen Dank für deine Hilfe!


Gruß Jens

 

Hallo Jens,

Nachstehend Vorschlag, der auf Barbara's Code basiert.
Deine Aufgabe: den Suchbereich unter Bereich definieren.
Code:

 

Hallo Barbara,
Hallo Aloys,

ich möchte mich an dieser Stelle ganz herzlich, für die Unterstützung bedanken. Ihr habt mir sehr geholfen und es funktioniert nun so, wie ich es mir vorgestellt habe.

Besten Dank!


Gruß Jens