Datum und User in verschiedenen Zellen ausgeben

Hallo!

Ich will in einem Excel pro Zeile das Datum der Erstellung und das Kürzel des Users in unterschiedlichen Zellen ausgeben, wenn ein Mitarbeiter etwas in das Excel schreibt.
Das Codeschnipsel schaut bis jetzt so aus:

Private Sub Worksheet_Change(ByVal Target As Range)
Const Sp = "A"  
Dim R As Integer, strUser As String
R = Target.Row
If R >= 2 Then
    
strUser = CreateObject("WScript.Network").UserName  
Const Sp = "P"  
    Cells(Target.Row, Sp).Value = strUser & _
    " - " & _  
    Format(Now, "DD.MM.YYYY") & _  
    ""  
End If
End Sub

Hier sollte also in Spalte "A" das Datum kommen, und in Spalte "P" das Kürzel mit dem der Mitarbeiter im Windows angemeldet ist.

Folgender Code macht das bereits, aber Datum und Kürzel in einer Zelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Const Sp = "A"  
Dim R As Integer, strUser As String
R = Target.Row
If R >= 2 Then
    strUser = CreateObject("WScript.Network").UserName  

    Cells(Target.Row, Sp).Value = strUser & _
    " - " & _  
    Format(Now, "DD.MM.YYYY") & _  
    ""  
    
End If
End Sub

Besten Dank für Tipps oder Lösungen!

Please also mark the comments that contributed to the solution of the article

Content-Key: 73356

Url: https://administrator.de/contentid/73356

Printed on: April 18, 2024 at 21:04 o'clock

3 Comments

Latest comment

Hallo viewpoint!

Sollte so gehen:

Private Sub Worksheet_Change(ByVal Target As Range)
Const SpD = "A"  
Const SpU = "P"  
Dim R As Integer, strUser As String
R = Target.Row
If R >= 2 Then
    Application.EnableEvents = False
    strUser = CreateObject("WScript.Network").UserName  
    Cells(R, SpD).Value = Format(Now, "DD.MM.YYYY")  
    Cells(R, SpU).Value = strUser
    Application.EnableEvents = True
End If
End Sub