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

letzter Bearbeiter und Datum

Forumthread: letzter Bearbeiter und Datum

letzter Bearbeiter und Datum
Jay
Hallo zusammen,
ich hab hier ein kleines Problem bei dem ich auf eure Unterstützung hoffe:
Ich habe eine große Tabelle in der verschiedene Informationen durch verschiedenen Bearbeiter gepflegt werden.
Nun würde ich gerne automatisch die jeweils letzte Änderung (Datum und Bearbeiter) abspeichern lassen.
Mit dem Code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Tabelle1
.Cells(7, 49).Value = Date
.Cells(7, 50).Value = Environ$("USERNAME")
End With
End Sub

kann ich zwar die gewünschten Informationen in Spalte AW/AX Zeile 7 anzeigen, jedoch funktioniert auf diesem Wege nicht fortlaufend.
Bearbeiter und Datum sollten also jeweils in der Zeile ausgegeben werden wo auch tatäschlich eine Bearbeitung/Veränderung stattgefunden hat.
Die Ausgabespalten AW = Datum und AX = Bearbeiter bleiben natrülich immer gleich.
Wäre toll wenn jemand eine Idee hat.
Besten Dank im Voraus.
Gruß
Jay Tosh
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: letzter Bearbeiter und Datum
01.10.2010 19:22:47
Josef

Hallo Jay,
in des Klassenmodul der entsprechenden Tabelle.

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo ErrExit
  Application.EnableEvents = False
  
  With Target
    Cells(.Row, 49) = Date
    Cells(.Row, 50) = Environ$("USERNAME")
  End With
  
  ErrExit:
  Application.EnableEvents = True
End Sub

Gruß Sepp

Anzeige
AW: letzter Bearbeiter und Datum
05.10.2010 16:15:58
Jay
Perfekt!
Vielen Dank an Dich!
Gruß
Jay
;
Anzeige
Anzeige

Infobox / Tutorial

Letzter Bearbeiter und Datum in Excel automatisch anzeigen


Schritt-für-Schritt-Anleitung

Um den letzten Bearbeiter und das Datum in Excel automatisch in einer Zelle anzuzeigen, kannst Du den folgenden VBA-Code verwenden. Dieser Code muss in das Klassenmodul der entsprechenden Tabelle eingefügt werden:

  1. Öffne Deine Excel-Datei.
  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Wähle im Projekt-Explorer die Tabelle aus, in der Du den letzten Bearbeiter und das Datum anzeigen möchtest (z.B. Tabelle1).
  4. Füge den folgenden Code in das Modul ein:
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrExit
    Application.EnableEvents = False

    With Target
        Cells(.Row, 49) = Date
        Cells(.Row, 50) = Environ$("USERNAME")
    End With

ErrExit:
    Application.EnableEvents = True
End Sub
  1. Schließe den VBA-Editor und speichere die Datei als Makro-fähige Arbeitsmappe (.xlsm).
  2. Teste die Funktion, indem Du eine Änderung in der Tabelle vornimmst. Der letzte Bearbeiter und das Datum sollten nun in den Spalten AW (Datum) und AX (Bearbeiter) angezeigt werden.

Häufige Fehler und Lösungen

  • Problem: Der Code funktioniert nicht, wenn Du Änderungen vornimmst.

    • Lösung: Stelle sicher, dass Du die Datei als Makro-fähige Arbeitsmappe speicherst und dass die Makros in Excel aktiviert sind.
  • Problem: Die Zellen AW und AX werden nicht aktualisiert.

    • Lösung: Überprüfe, ob der Code im richtigen Tabellenmodul eingefügt wurde und dass Du Änderungen an Zellen vornimmst, die in dem Bereich liegen.

Alternative Methoden

Falls Du keine VBA-Makros verwenden möchtest, kannst Du die Funktion =USER() in Kombination mit einer manuellen Eingabe des Datums nutzen. Diese Methode ist jedoch weniger automatisiert und benötigt mehr Pflege:

  1. Gib in Spalte AW das Datum manuell ein.
  2. Gib in Spalte AX die Funktion =USER() ein, um den letzten Bearbeiter anzuzeigen.

Diese Methode ist jedoch anfälliger für Fehler und erfordert deine manuelle Eingabe.


Praktische Beispiele

Angenommen, Du hast eine Tabelle für Projektverfolgung. Jedes Mal, wenn ein Bearbeiter eine Änderung vornimmt, wird das Datum und der Benutzername automatisch aufgezeichnet. So kannst Du leicht nachvollziehen, wer wann an dem Dokument gearbeitet hat.

Wenn Du beispielsweise in Zeile 10 eine Änderung vornimmst, wird in Zelle AW10 das aktuelle Datum und in Zelle AX10 der Benutzername angezeigt.


Tipps für Profis

  • Benutzerdefinierte Formatierung: Du kannst das Datum in einem für dich angenehmen Format anzeigen lassen, indem Du die Zelle formatierst (Rechtsklick auf die Zelle > Zellen formatieren > Datum).
  • Überwachung mehrerer Blätter: Wenn Du in mehreren Tabellenblättern den letzten Bearbeiter und das Datum anzeigen möchtest, musst Du den Code in jedes Tabellenmodul einfügen.

FAQ: Häufige Fragen

1. Wie kann ich den letzten Bearbeiter in einer Zelle anzeigen?
Du kannst den letzten Bearbeiter mit dem oben beschriebenen VBA-Code in den Zellen AW und AX deiner Tabelle anzeigen lassen.

2. Funktioniert das auch in Excel Online?
Leider funktionieren VBA-Makros nicht in Excel Online. Du musst die Desktop-Version von Excel verwenden, um diese Funktion nutzen zu können.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige