Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelländerung anzeigen

Zelländerung anzeigen
Boernie
Hallo,
ich suche eine funktion, um die letzte Änderung einer Zelle auszulesen. Mein Dokument (im Netzwerk) wurde geändert, und keiner will's gewesen sein. Kann ich hier noch nachvollziehen, wer wann was geändert hat?
Danke schon mal im voraus
Boernie

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

Betreff
Benutzer
Anzeige
AW: Zelländerung anzeigen
16.07.2009 07:37:44
Hajo_Zi
Hallo
Nein, Da mußt Du schon ein Protokoll führen.

AW: Zelländerung anzeigen
16.07.2009 08:33:41
Bernd
Hi Boernie,
schreibe folgenden code in DieseArbeitsmappe:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Static intSchonGespeichert% 'initialiesiert mit 0
Dim lngZeile As Long
With Worksheets("tab1") 'Tabellennamen anpassen
'nur einen Speichervorgang je Öffnung merken
lngZeile = .Cells(Rows.Count, 1).End(xlUp).Row + intSchonGespeichert + 1
.Cells(lngZeile, 1).Value = Format(Now, "DD.MM.YYYY") 'Datum Spalte A
.Cells(lngZeile, 2).Value = Format(Now, "HH:MM:SS") 'Uhrzeit Spalte B
.Cells(lngZeile, 3).Value = Environ("Username")
End With
intSchonGespeichert = -1
End Sub

So siehst du wer wann um wieviel uhr zuletzt gespeichert hat.
Das Tabellenblatt kannste ja dann per code für die anderen ausblenden oder die schrift weissen und den scrollbereich im Blatt auf A1 beschränken.
gruss Bernd
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige