Username automatisch einsetzen
06.11.2007 15:36:44
J.
habe ein kleines Problem, ich möchte in die Zelle "A1" den Usernamen automatisch eingesetzt bekommen.
Habe ein Code, der bezieht sich aber auf einen ganzen Bereich der Arbeitsmappe.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Errh
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A:M")) Is Nothing Then
Range("M1").Value = "Kalkuliert von " & Application.UserName _
& " am " & Now
End If
Errh:
Application.EnableEvents = True
End Sub
Ist bestimmt ganz einfach, wenn mann es weiß!
Danke im voraus.
J. B.
Anzeige