Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelländerung anzeigen

Forumthread: 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
Anzeige

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)

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