3
automatisch Änderungsdatum setzen
Hallo,
lass mir das Änderungsdatum in das Feld (E5) schreiben.
Sollte nun einen Quelltext haben, der automatisch dabei den Benutzernamen in das Feld (E6) einträgt.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Cells([5], [5]) = CDate(Now)
End Sub
mfg CJACKSON
lass mir das Änderungsdatum in das Feld (E5) schreiben.
Sollte nun einen Quelltext haben, der automatisch dabei den Benutzernamen in das Feld (E6) einträgt.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Cells([5], [5]) = CDate(Now)
End Sub
mfg CJACKSON
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 78060
Url: https://administrator.de/contentid/78060
Printed on: April 25, 2024 at 23:04 o'clock
3 Comments
Latest comment
Hallo CJackson!
Ersetze einfach "Target.Row" (womit die Zeile, in welcher sich die veränderte Zelle befindet, gemeint ist) durch die gewünschte konstante Zeilennummer, also 5.
Grüße
bastla
[Edit] Beim Verfassen der Antwort passte sie noch zur Frage ...
[Edit]
Dies schreibt mri das Änderungsdatum dann aber in Row 5.
Gemeint ist vermutlich "Column 5" ...Ersetze einfach "Target.Row" (womit die Zeile, in welcher sich die veränderte Zelle befindet, gemeint ist) durch die gewünschte konstante Zeilennummer, also 5.
Grüße
bastla
[Edit] Beim Verfassen der Antwort passte sie noch zur Frage ...
[Edit]
Hallo CJackson!
Neuer Versuch:
Grüße
bastla
Neuer Versuch:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Cells(5, 5) = CDate(Now)
Cells(5, 6) = CreateObject("WScript.Network").UserName
Application.EnableEvents = True
End SubGrüße
bastla
Danke für die schnelle Hilfe, war erfolgreich.
