Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum und Benutzer eintragen bei Eintrag

Datum und Benutzer eintragen bei Eintrag
15.03.2016 16:24:35
Sebastian
Hallo zusammen,
ich versuche erfolglos, wenn ein Eintrag in einer Zelle gemacht wird, das aktuelle Datum und den Benutzer der den Eintrag gemacht hat, in weitere Zellen eintragen zu lassen. Das Datum soll fixiert werden, damit es sich nicht updated, wenn die Mappe neu geöffnet wird.
Konkret soll nach einem Eintrag in den Spalte O, das Datum in Spalte T und der Benutzer in Spalte U erscheinen. Analog dazu soll nach einem Eintrag in den Spalte W, das Datum in Spalte AB und der Benutzer in Spalte AC erscheinen usw.. Hat jemand eine Lösung für mein Problem?
https://www.herber.de/bbs/user/104359.xlsx

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum und Benutzer eintragen bei Eintrag
15.03.2016 16:46:00
Michael
Hallo!
In das Klassenmodul des betroffenen Tabellenblattes (ReKlick auf Tabellenblattreiter, Code anzeigen, einfügen):
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Cells.Count > 1 Then
Select Case Target.Column
Case Is = 15
Cells(Target.Row, 20) = Date
Cells(Target.Row, 21) = Environ("username")
Case Is = 23
Cells(Target.Row, 28) = Date
Cells(Target.Row, 29) = Environ("username")
End Select
End If
End Sub
LG
Michael

Anzeige
AW: Datum und Benutzer eintragen bei Eintrag
15.03.2016 17:08:35
Sebastian
Hallo Michael,
tausend Dank für die Lösung!
VG
Sebastian

Aber gern, Danke für die Rückmeldung! owT
15.03.2016 17:33:19
Michael
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Datum und Benutzer automatisch eintragen in Excel


Schritt-für-Schritt-Anleitung

Um ein Datum und den Benutzer automatisch einzutragen, kannst Du den folgenden VBA-Code in das Klassenmodul des betroffenen Tabellenblattes einfügen:

  1. Öffne Deine Excel-Datei und klicke mit der rechten Maustaste auf den Reiter des gewünschten Tabellenblattes.
  2. Wähle „Code anzeigen“ aus dem Kontextmenü.
  3. Füge den folgenden Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Cells.Count > 1 Then
        Select Case Target.Column
            Case Is = 15 ' Spalte O
                Cells(Target.Row, 20) = Date ' Spalte T
                Cells(Target.Row, 21) = Environ("username") ' Spalte U
            Case Is = 23 ' Spalte W
                Cells(Target.Row, 28) = Date ' Spalte AB
                Cells(Target.Row, 29) = Environ("username") ' Spalte AC
        End Select
    End If
End Sub
  1. Schließe das VBA-Fenster und teste die Eingabe in den Spalten O und W.

Mit diesem Code wird das aktuelle Datum in der angegebenen Spalte festgehalten, und der Benutzername wird ebenfalls automatisch eingetragen. Dies ermöglicht einen effektiven Datumsstempel automatisch beim Eintrag.


Häufige Fehler und Lösungen

  • Problem: Der Zeitstempel wird nicht eingetragen.

    • Lösung: Stelle sicher, dass der Code im richtigen Klassenmodul eingefügt wurde und dass Du in der richtigen Spalte (O oder W) eingibst.
  • Problem: Das Datum ändert sich nach dem Schließen und erneuten Öffnen der Datei.

    • Lösung: Der Code verwendet das Date-Feld, welches das aktuelle Datum einträgt. Es wird jedoch festgehalten, da Du den Wert in eine Zelle schreibst.

Alternative Methoden

Eine alternative Methode, um das Excel Datum automatisch einzufügen bei Eingabe, ist die Verwendung von Excel-Formeln. Hierbei kannst Du jedoch nicht den Benutzernamen automatisch ermitteln. Eine Kombination aus VBA und Formeln ist oft der beste Weg, um beides zu erreichen.


Praktische Beispiele

Angenommen, Du möchtest das aktuelle Datum und den Benutzernamen eintragen, wenn ein Wert in Spalte O eingegeben wird:

  1. Gib einen Wert in Zelle O2 ein.
  2. Nach der Eingabe erscheinen in T2 das heutige Datum und in U2 Dein Benutzername.

Diese Methode funktioniert in Excel 2010 und späteren Versionen.


Tipps für Profis

  • Du kannst den Code erweitern, um zusätzliche Spalten zu integrieren oder spezielle Bedingungen zu setzen, die das Eintragen des Datums und Benutzernamens steuern.
  • Für eine bessere Übersichtlichkeit kannst Du die Spalten T und U farblich hervorheben, um die Datümer und Benutzernamen visuell hervorzuheben.

FAQ: Häufige Fragen

1. Wie kann ich den Zeitstempel in einer anderen Sprache anzeigen?
Der Zeitstempel wird in der Sprache des Betriebssystems angezeigt. Ändere die Spracheinstellungen Deines Systems, um dies zu ändern.

2. Kann ich das Datum auch per Formel eintragen?
Ja, Du kannst das aktuelle Datum mit der Formel =HEUTE() einfügen, jedoch wird dieses Datum bei jedem Öffnen der Datei aktualisiert und ist somit kein fester Datumsstempel.

3. Funktioniert dieser Code in Excel Online?
Leider ist VBA nicht in Excel Online verfügbar. Du müsstest die Desktop-Version von Excel verwenden, um diesen Code auszuführen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige