Windowsname automatisch in Zelle eintragen

Hallo,

probiere es mal so im Codemodul des entsprechenden Blattes:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$A$1" Or Target.Count > 1 Then Exit Sub

Target.Offset(1, 0) = Environ("UserName")

End Sub

Falls der Anmeldename am PC der gleiche ist wie der Benutzername von Excel, kannst du auch anstatt

Environ("UserName") Application.UserName verwenden.

Mit freundlichen Grüßen

Claus

Vielen Dank für die Antwort

Ich habe es so versucht, jetzt ist aber das Problem, dass ich schon einen Code in dieser Tabelle habe, welcher das Datum einfügt.

Der Code sieht folgendermassen aus. Und ich bekomme diese Fehlermeldung.

Hallo,

du musst beide Anweisungen in den gleichen Worksheet-Event schreiben:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1,H:H")) Is Nothing Or _

Target.Count > 1 Then Exit Sub



Select Case Target.Column

Case 1

Target.Offset(1, 0) = Application.UserName

Case 8

Target.Offset(, 1) = IIf(Len(Target) > 0, Date, "")

End Select

End Sub

Mit freundlichen Grüßen

Claus

Vielen Dank

Jetzt funktionierts!

Beim Öffnen einer Excel-Datei erscheint automatisch das Kontext-Menü. Ein Eintrag in die Zellen ist dann nicht möglich. Was tun?