Aktuelles Datum und Username in Excel Zelle anzeigen
Schritt-für-Schritt-Anleitung
Um das aktuelle Datum und den Benutzernamen in einer Zelle (z.B. A1) anzuzeigen, kannst Du ein VBA-Makro verwenden. Folge diesen Schritten:
-
Öffne die Excel-Datei und gehe zu Entwicklertools > Visual Basic, um den VBA-Editor zu öffnen.
-
Klicke im Projektfenster auf DieseArbeitsmappe.
-
Füge den folgenden Code in das Codefenster ein:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Dim LOG As Worksheet
Dim UserN As String
Dim UserID As String
On Error GoTo Fehler
Set LOG = ThisWorkbook.Sheets("Tabelle1")
UserN = Application.UserName ' Benutzername in Excel
UserID = Environ("Username") ' Anmeldename im Netzwerk
LOG.Cells(1, 1).Value = Format(Now, "YYYY.MM.DD hh:mm ") & UserID & ", " & UserN
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Save
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & " " & Err.Description
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
-
Schließe den VBA-Editor und speichere die Arbeitsmappe als Excel-Arbeitsmappe mit Makros (*.xlsm).
Jetzt wird beim Speichern der Datei das aktuelle Datum und der Username in der Zelle A1 der angegebenen Tabelle geschrieben.
Häufige Fehler und Lösungen
Alternative Methoden
Falls Du kein VBA verwenden möchtest, kannst Du auch die Funktion =JETZT() in einer Zelle verwenden, um das aktuelle Datum und die Uhrzeit anzuzeigen. Der Benutzername müsste jedoch manuell eingegeben werden, da Excel keine integrierte Funktion hat, um den Windows-Benutzernamen ohne VBA auszulesen.
Praktische Beispiele
Hier ist ein Beispiel, wie der Inhalt der Zelle A1 aussehen könnte:
- Ergebnis:
2023.10.01 14:45 Benutzername, Max
Das zeigt das aktuelle Datum und die Uhrzeit zusammen mit dem Benutzernamen.
Tipps für Profis
- Du kannst das Makro anpassen, um zusätzliche Informationen wie die IP-Adresse oder den Computername hinzuzufügen, um die Nachverfolgbarkeit zu verbessern.
- Überlege, das Makro so zu programmieren, dass es bei bestimmten Ereignissen oder Aktionen (z.B. wenn eine bestimmte Zelle geändert wird) ausgeführt wird.
FAQ: Häufige Fragen
1. Kann ich mehrere Makros in einer Excel-Datei verwenden?
Ja, Du kannst mehrere Makros in einer Excel-Datei verwenden. Jedes Makro kann für verschiedene Aufgaben zuständig sein.
2. Wie kann ich den Code anpassen, um nur den Benutzernamen in einer Zelle anzuzeigen?
Du kannst den Code so anpassen, dass er nur UserN in die Zelle schreibt, ohne das Datum.
ActiveSheet.Range("A1").Value = UserN
3. Ist es möglich, den Benutzernamen automatisch zu speichern, wenn die Datei geschlossen wird?
Ja, Du kannst das Makro so erweitern, dass es auch beim Schließen der Datei ausgeführt wird, indem Du das Ereignis Workbook_BeforeClose verwendest.