Logbucheintragung beim öffnen einer Tabelle

Private Sub Worksheet_Change(ByVal Target As Range)
For I = 1 To 500
    If Tabelle1.Cells(I, 1).Value = Application.UserName Then Exit Sub
    If IsEmpty(Tabelle1.Cells(I, 1)) = True Then
        Tabelle1.Cells(I, 1).Value = Application.UserName
        Exit Sub
    End If
Next
End Sub

Mit diesen wenigen Codezeilen wird bei jeden öffnen der Tabelle der Windows Benutzernamen in die Tabelle 1 eingetragen.

Falls Sie eine andere Tabelle dies eintragen wollen, müssen Sie alle Einträge wo Tabelle1 steht auf die passende Tabelle ändern.

Share

You may also like...

Schreibe einen Kommentar

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.