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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 78060
Url: https://administrator.de/contentid/78060
Ausgedruckt am: 26.11.2024 um 05:11 Uhr
3 Kommentare
Neuester Kommentar
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.
