Excel-VBA-Zeitstempel und Benutzername

Den code unten erkennt Daten, wenn eingegeben, die in Spalte A und fügt automatisch den aktuellen Benutzer in die Zelle auf der rechten Seite. Ich würde auch gerne diesen code, um einen Zeitstempel hinzufügen, wie gut. Ich brauche zum anmelden den Benutzernamen und die Uhrzeit. Irgendwelche Vorschläge?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim rCell As Range
    Dim rChange As Range

    On Error GoTo ErrHandler
    Set rChange = Intersect(Target, Range("A:A"))
    If Not rChange Is Nothing Then
        Application.EnableEvents = False
        For Each rCell In rChange
            If rCell > "" Then
                With rCell.Offset(0, 1)
                    .Value = UserName()

                End With

            Else
                rCell.Offset(0, 1).Clear
            End If
        Next
    End If

ExitHandler:
    Set rCell = Nothing
    Set rChange = Nothing
    Application.EnableEvents = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub

Public Function UserName()
    UserName = Environ$("UserName")
End Function

InformationsquelleAutor user2591771 | 2013-07-17

  1. 1

    Konnten Sie nur so etwas wie date & " " & time. In dieser Ausgabe wird das Datum und die Zeit verkettet, und zwar so:

    17/07/2013 11:49:39 PM

    Hier ist dein code mit dem Datum/Zeit-Wert in der nächsten Spalte:

    Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim rCell As Range Dim rChange As Range

On Error GoTo ErrHandler
Set rChange = Intersect(Target, Range("A:A"))
If Not rChange Is Nothing Then
    Application.EnableEvents = False
    For Each rCell In rChange
        If rCell > "" Then
            rCell.Offset(0, 1).Value = UserName()   
            rCell.Offset(0, 2).Value = date() & " " & time()   <-- added line          
        Else
            rCell.Offset(0, 1).Clear
        End If
    Next
End If
    Vielen, vielen Dank! Funktioniert perfekt!
    Glückliche Tage! Markieren Sie bitte als Antwort, damit die Frage geschlossen ist 🙂
    rCell.Offset(0,2).Value = Now() auch funktioniert.

    InformationsquelleAutor Katstevens

Schreibe einen Kommentar