Haug Office Service
Lesen Sie den eingetragenen Usernamen aus Excel aus.
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Range("A4").Value = Application.UserName
End Sub