viewpoint
Goto Top

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!

Content-Key: 73356

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

Ausgedruckt am: 29.03.2024 um 15:03 Uhr

Mitglied: bastla
bastla 12.11.2007 um 15:43:03 Uhr
Goto Top
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

Grüße
bastla
Mitglied: viewpoint
viewpoint 12.11.2007 um 18:05:14 Uhr
Goto Top
Wieder einmal genial - Besten Dank!
Mitglied: bastla
bastla 12.11.2007 um 18:10:52 Uhr
Goto Top
Hallo viewpoint!

Freut mich, wenn's passt. face-smile

Magst Du noch den Wie kann ich einen Beitrag als gelöst markieren? (und den seinerzeitigen auch)?

Grüße
bastla