Office: (Office 2019) Zelle soll Änderungsdatum bekommen wenn andere Zelle geändert wird

Hallo,
ich habe eine Tabelle,
in der ich in Spalte Y das Tagesdatum haben möchte wenn in Spalte X der Wert geändert wurde. Das Datum in Y soll immer der letzten Änderung in X entsprechen.
Ich hatte es mal so versucht
Code:

allerdings habe ich dann immer das aktuelle Heute Datum in Y und nicht das der letzten änderung

Danke

:)

 

Hallo,

am besten geht das mit einem Makro. Suche im Netz nach dem Stichwort Zeitstempel, dann findest du duzende.

 

Hallo Tommy,
ließe sich über VBA (Private Sub Worksheet_Change) machen.
Mit Formeln m.E. nicht.
Code:

Fügt das Datum aber als Text ein...
Gruß der AlteDresdner

 

Hi,
ich versteh zwar grade nicht woher die SUB weiss das sie in Spalte X änderungen findet und in Spalte Y das Datum eintragen soll, allerdings funktioniert es.
Kann man das auch noch ergänzen das wenn der Eintrag in Spalte X gelöscht wird auch das Datum in Y gelöscht wird? Aktuell wird beim löschen (was ja auch nicht falsch ist) das lösch Datum eingetragen, das bräuchte ich aber an der Stelle nicht.

Danke für die Hilfe

 

Hallo,
kann mir das noch einer etwas erklären bzw. die Frage nach dem Lösch Datum noch beantworten?

Danke

 

Private Sub Worksheet_Change(ByVal T As Range)
'nur, wenn in Spalte X geändert
If T.Column = 24 Then Cells(T.Row, 25) = Iif(T = "", "", Format(Now(), "DD.MM.YY"))
End Sub

ungetestet, anhand Code von AlterDresdner. Erklärung: Spalte X ist Spalte 24.

 

Moin
Code:

Mit Date ist es ein Datum.

If Target.Column = 24 --> ( 24 ist Spalte X)

Cells(Target.Row, 25)--> ( 24 ist Spalte Y)

IIf(Target = "", "", Date) --> wenn Target = leer dann Zelle in Y leeren sonst Datum eintragen.
gruss hary

 

Super,
Danke das hat funktioniert

 

Muss das jetzt nochmal hochholen, wenn jetzt zusätzlich noch in einer Spalte dahinter der Excel User eingetragen werden soll, sobald in der Spalte was eingetragen wird.

Hatte es so versucht
Code:

Allerdings ohne erfolg, Spalte V bleibt leer

 

If Target.Column = 20 Then
Cells(Target.Row, 21) = IIf(Target = "", "", Da
Cells(Target.Row, 21) .offsert(0,1)="Environ("Username")
End If

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Klappt leider nicht, denke mal das Da Date) heißen sollte, aber bekomme dann trotzdem noch einen Fehler.

Code:

"Fehler beim Kompilieren
Syntax Fehler"

 

.offset
Fehler in der Schreibweise.
Zu Date kann ich nichts schreiben, das war so im Original.

 

Auch das führt noch zu einem Syntax Error.

Ich hab es jetzt so gelöst, das funktioniert. Danke für die Hilfe

Code:

 

Hallo Hajo, dann schau doch mal eben Dein #10 an.

@Gottschalk: Offset statt offsert