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!

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 73356

Url: https://administrator.de/forum/datum-und-user-in-verschiedenen-zellen-ausgeben-73356.html

Ausgedruckt am: 22.12.2024 um 20:12 Uhr

3 Kommentare

Neuester Kommentar

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