Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Benuzter welcher zuletzt gespeichert hat in Zelle

Forumthread: Benuzter welcher zuletzt gespeichert hat in Zelle

Benuzter welcher zuletzt gespeichert hat in Zelle
04.06.2002 10:04:45
Bendra
hi

ich suche eine lösung, mit der es möglich ist, den benutzer in einer beliebigen zellen anzuzeigen, welcher das dokument zuletzt bearbeitet und gespeichert hat! sollte sich immer nach dem speichern anpassen und netzwerkfähig sein.

Greetz Bendra

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Benuzter welcher zuletzt gespeichert hat in Zelle
04.06.2002 12:16:57
Thomas Lambeck
Hallo Bendra,

ich liefere Dir hier mal den Code, den ich verwende, um Änderungen in einer Datei zu speichern:

Mit "Änderungsliste_anzeigen()" und "Änderungsliste_ausblenden()" wird das Tabellenblatt "Änderungsliste" ein- und ausgeblendet, damit niemand von Hand darin "rumschreibt".

Ich hoffe das hilft Dir weiter.
(Bei uns läuft es unter Excel 97 und 2000)

mfG
Thomas Lambeck

Anzeige
Re: Benuzter welcher zuletzt gespeichert hat in Zelle
04.06.2002 12:26:06
ajk
Hallo,

ich habe eine etwas kürzere Lösungsidee:
In die gewünschte Datei:

In VBA-Editor.
Diese Arbeitsmappe:

Sub Workbook_Open()
Calculate
End Sub

In ein Modul:

Function benutzer()
benutzer = ActiveWorkbook.BuiltinDocumentProperties(7)
End Function

Zum Aufrufen in der Mappe einfach in die gewünschte Zelle:

=Benutzer()
als Formel eingeben.

Noch besser wäre es die Funktion in eine .XLA Datei zu schreiben, dann ist sie immer in jeder Datei verfügbar, wenn man diese .xla in den XLSTART-Ordner kopiert.

Gruß
Andreas

Anzeige
Re: Benuzter welcher zuletzt gespeichert hat in Zelle
04.06.2002 12:38:17
Thomas Lambeck
Na gut,

ich wollte es halt etwas umfangreicher haben...

mfG
Thomas Lambeck

Re: Benuzter welcher zuletzt gespeichert hat in Zelle
04.06.2002 12:53:23
geri
es geht auch so --> Code in Arbeitsblatt und in Zelle A1 stehen nach Änderung die Infos

Private Sub Worksheet_Change(ByVal Target As range)
If Target.Address = "$A$1" Then Exit Sub
range("A1") = "Geänd. von " & _
Application.UserName & _
" am " & _
Format(Date, "dd.mm.yy")
'ActiveWorkbook.Save
End Sub


gruss
geri


Anzeige
Nur wenn richtiger Benutzer eingetragen
04.06.2002 13:32:10
Thomas Lambeck
Hallo geri,

Das liefert aber nur den Benutzernamen, auf den die Office-Installation lautet.
(Würde in einer Firma evtl. "Administrator" oder "Firmenname" sein!)
Nicht den am Rechner gerade arbeitenden Benutzer.

Die beste Lösung, (wenn's einfach sein soll) dürfte wohl die Lösung von Andreas sein.

mfG
Thomas Lambeck

Anzeige
Re: Benuzter welcher zuletzt gespeichert hat in Zelle
04.06.2002 13:39:38
Bendra
danke, das war mir eine super hilfe! es funktioniert *freu*

DANKE!

Re: Nur wenn richtiger Benutzer eingetragen
04.06.2002 19:21:19
geri
liefert den Angemeldeten USER am PC, es war die Rede in der Anfrage von Firmennetz, habe dies so verstanden
Re: Benuzter welcher zuletzt gespeichert hat in Zelle
06.06.2002 10:01:16
AJK
Hallo Thomas,

war nicht böse gemeint ;-).


Gruß
AJK

Anzeige
Re: Benuzter welcher zuletzt gespeichert hat in Zelle
07.06.2002 11:35:08
Thomas Lambeck
Hab's auch nicht so verstanden.

mfG
Thomas Lambeck

;
Anzeige

Infobox / Tutorial

Benutzer, welcher zuletzt gespeichert hat in Zelle


Schritt-für-Schritt-Anleitung

Um den Benutzer, der das Dokument zuletzt bearbeitet hat, in einer Zelle anzuzeigen, kannst du den folgenden VBA-Code verwenden. Dieser Code funktioniert in Excel 97 und 2000, sollte aber auch in neueren Versionen anpassbar sein.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle das gewünschte Arbeitsblatt, in dem du die Informationen anzeigen möchtest.

  3. Füge den folgenden Code in das Codefenster des Arbeitsblatts ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Address = "$A$1" Then Exit Sub
       Range("A1") = "Geändert von " & _
           Application.UserName & _
           " am " & _
           Format(Date, "dd.mm.yy")
    End Sub
  4. Schließe den VBA-Editor und speichere die Datei.

  5. Jedes Mal, wenn eine Änderung im Arbeitsblatt erfolgt, wird in Zelle A1 der Name des Benutzers und das aktuelle Datum angezeigt.


Häufige Fehler und Lösungen

  • Fehler: Der Benutzername wird nicht korrekt angezeigt.

    • Lösung: Stelle sicher, dass du den richtigen Benutzernamen in den Excel-Optionen festgelegt hast. Gehe zu Datei > Optionen > Allgemein und überprüfe die Eingabe bei „Benutzername“.
  • Fehler: Die Zelle wird nicht aktualisiert.

    • Lösung: Überprüfe, ob der Code korrekt im richtigen Arbeitsblatt eingefügt wurde. Der Code muss im Modul des spezifischen Arbeitsblatts platziert sein.

Alternative Methoden

Wenn du eine andere Methode bevorzugst, um den „letzten Bearbeiter in Zelle“ anzuzeigen, kannst du die folgende Funktion verwenden:

  1. Öffne den VBA-Editor mit ALT + F11.

  2. Füge in ein Modul den folgenden Code ein:

    Function benutzer()
       benutzer = ActiveWorkbook.BuiltinDocumentProperties(7)
    End Function
  3. Um die Funktion zu verwenden, gebe in die gewünschte Zelle ein:

    =benutzer()

Diese Funktion gibt dir den Benutzernamen zurück, der das Dokument zuletzt gespeichert hat.


Praktische Beispiele

Hier sind einige praktische Beispiele zur Verwendung des Codes:

  • Beispiel 1: Du kannst den Code so anpassen, dass er die Informationen auch in eine andere Zelle schreibt, z.B. in Zelle B1:

    Range("B1") = "Letzter Bearbeiter: " & Application.UserName
  • Beispiel 2: Um die letzte Änderung nur zu speichern, wenn ein spezifischer Bereich bearbeitet wurde, kannst du die Bedingung anpassen:

    If Not Intersect(Target, Range("C1:C10")) Is Nothing Then
       ' Code hier einfügen
    End If

Tipps für Profis

  • Automatisches Speichern: Du kannst die Zeile ActiveWorkbook.Save in deinen Code einfügen, um die Änderungen automatisch zu speichern, nachdem eine Änderung vorgenommen wurde.

  • Benutzerdefinierte Formate: Du kannst das Datumsformat anpassen, um es für dein Unternehmen ansprechender zu gestalten. Zum Beispiel:

    Format(Date, "dd/mm/yyyy")

FAQ: Häufige Fragen

1. Wie kann ich den letzten Bearbeiter in einer Zelle anzeigen?
Verwende die Funktion benutzer() in einer Zelle, um den Namen des Benutzers anzuzeigen, der das Dokument zuletzt gespeichert hat.

2. Funktioniert das auch in neueren Excel-Versionen?
Ja, die oben beschriebenen VBA-Codes sollten auch in neueren Versionen von Excel funktionieren, solange die VBA-Funktionalität aktiviert ist.

3. Kann ich den Code in verschiedenen Arbeitsblättern verwenden?
Ja, du kannst den Code in jedes Arbeitsblatt einfügen, um den zuletzt bearbeitenden Benutzer jeweils anzuzeigen. Achte darauf, dass der Code im richtigen Arbeitsblatt-Modul eingefügt wird.

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