Freigeben über

Automatisch Benutzername in Zelle eintragen

Anonym
2014-04-02T11:01:40+00:00

Hallo Zusammen

Ich möchte dass in einer Excel-Tabelle, automatisch der Benutzername, mit welchem man am Computer angemeldet ist  eingetragen wird, wenn der Benutzer etwas in eine Zelle geschrieben hat.

Beispiel:

Wenn ich in Der Zelle A1 ein Wort eintrage und Enter drücke, schreibt es in die Zelle A2 den Benutzername.

Ist das möglich mit VBA?

Danke schon im Voraus.

Microsoft 365 und Office | Excel | Für Zuhause | Windows

Gesperrte Frage. Diese Frage wurde aus der Microsoft-Support-Community migriert. Sie können darüber abstimmen, ob sie hilfreich ist, aber Sie können keine Kommentare oder Antworten hinzufügen oder der Frage folgen.

0 Kommentare

Antwort, die vom Frageautor angenommen wurde

  1. Anonym
    2014-04-02T12:20:47+00:00

    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

    4 Personen fanden diese Antwort hilfreich.
    0 Kommentare

3 zusätzliche Antworten

Sortieren nach: Am hilfreichsten
Am hilfreichsten Neueste Älteste
  1. Anonym
    2014-04-02T12:37:46+00:00

    Vielen Dank

    Jetzt funktionierts!

    2 Personen fanden diese Antwort hilfreich.
    0 Kommentare
  2. Anonym
    2014-04-02T12:10:08+00:00

    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.

    Eine Person fand diese Antwort hilfreich.
    0 Kommentare
  3. Anonym
    2014-04-02T11:32:07+00:00

    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

    Eine Person fand diese Antwort hilfreich.
    0 Kommentare