Office: Datum/Uhrzeit der letzten Bearbeitung in Zelle speichern

Hallo Leute,
ich habe einen Produktionsplan mit Excel realisiert den ich anderen per Internet per Download zur Verfügung stellen will.
Ich möchte, dass der User der den Plan dann Aufruft immer in einer Zelle erkennen kann, welche Version er gerade aufgerufen hat, d.h. er muß sehen zu welchem Zeitpunkt ich die letzte Änderung gemacht habe. Kurz: Ich brauche einen Weg das Datum und die Uhrzeit vor dem Speichern in eine Zelle zu schreiben. Diese darf aber logischerweise beim nächste Aufruf nicht aktualisiert werden sondern nur nach Änderung der Datei.
Ich hoffe das dieses Problem nicht allzu exotisch ist und nicht allzu kompliziert beschrieben.

Schönen Dank schon mal im Voraus.

Oliver

:)

 

Moin, Oliver,

gehe ich recht in der Annahme, dass es dann auf einem Blatt so aussehen soll:

Dann solltest Du in ein allgemeines Modul (nicht DieseArbeitsmappe, nicht Tabelle) den folgenden Code eintragen und vor Beendigung der Mappe manuell aufrufen - oder den Code für die Mappe im Netz in eine Workbook_BeforeClose verpacken; diese würde aber jedes Schließen katalogisieren:

Code:

 

Hi jinx,
Die Richtung ist schon in Ordnung so. Wenn ich deinen Vorschlag richtig interpretiere, dann lässt du nach jeder Aktualisierung (Aktivierung des Codes) den Zeitpunkt in eine neue Zeile schreiben, wie in einer Protokollfunktion - Es würde ausreichen wenn die alten Zellen nur überschrieben würden.
Dann möchte ich noch deine alternative aufgreifen:
Die datei Besitzt auf jeden fall schon einen Schutz und die Idee das Änderungsdatum nur von dem Zugriffsberechtigten zu speichern wäre schon ideal. Wäre dann auch eine Automatisierung möglich, d.h. ohne Manuelle betätigung der Funktion?
Wäre schön wenn du (oder auch alle anderen) mir nochmal helfen könntet.

Gruß Oliver

 

Hi Jinx,
ich hätte da noch zwei Anmerkungen (Fragen):
1.Die Beziehst dich in deinem Code auf ein Sheet ("Tabelle2"). Da ich aber die Produktionsplane pro Monat in jeweils neuen Sheet scheibe müsste ich jedes mal den SheetNamen im Code Ändern. Gibt es eine möglichkeit alle Sheets anzusprechen?

2.Wenn ich deinen Code ausführe such er sich die erste freie Zelle in Spalte A und B um die Werte hineinzuschreiben. Gibt es die möglichkeit eine bestimmte Zelle anzusprechen, so das die Werte immer am selben Ort (Zelle) sichtbar sind.

Danke nochmal,

Gruß

Oliver

 

Hi,

wie wäre es mit folgender Lösung: Du fügst die beiden unten stehenden Prozeduren in das Objekt "Diese Arbeitsmappe" (nicht normales Modul, kein Tabellenobjekt) ein. Beim Speichern wird die Dateieigenschaft "last save time" aktualisiert und beim Öffnen der Datei wird die Info ausgelesen und in der Titelzeile des aktuellen Excel-Fensters ausgegeben.

Tabellennamen spielen dann keine Rolle und der Anwender hat das Datum der letzten Aktualisierung permanent vor Augen.

Code:

Code:

Gruß

Johannes



Es wurde in diesem Beitrag der Code für dieses Forum angepasst.

 

Hallo Johannes,

im Prinzip ist diese Lösung nicht schlecht, aber sie zeigt ja "nur" den zuletztabgespeicherten Zeitpunkt an, aber nicht den Zeitpunkt der letzten Änderung. Wenn ich also z.B. das File auf einen Server hochlade um es zum Download anzubieten dann wird das Speicherdatum ja neu gesetzt und das, egal ob ich was an der Datei geändert habe oder nicht.
Vielleicht muß ich da noch einmal ein wenig zu meinem Vorhaben erklären:
Die XLS-Datei soll automatisch einmal Täglich auf einen Webserver hochgeladen werden, um sie von bestimmten Usern Downloaden zu können. Mehrere User laden diesen Plan runter und drucken ihn jeder für sich aus. In Meetings bringt jeder seinen Ausdruck mit. Und die Runde soll jetzt auf dem Plan erkennen können ob alle den selben Versionsstand des Planes haben, damit keiner Raten muß wer jetzt den aktuell richtigen Plan hat.

Ich denke das Problem war nicht eindeutig erklärt. Ich bitte um Entschuldigung dafür.
Bin trotzdem voller Hoffnung für weitere Vorschläge.
Trotzdem auch vielen Dank an dich Johannes - werde deinen Tip für spätere Anwendungen Archivieren.

Gruß,
Oliver

 

Hallo Oliver,

ein geeigneter Platz für die Information ist m. E. die Kopf- bzw. Fußzeile. Mit folgendem Makro wird in die Fußzeilen aller Tabellen das Versionsdatum eingefügt, womit auch die Frage beantwortet wäre, wie man alle Tabellen anspricht.

Es gibt mehrere Möglichkeiten zur weiteren Automatisierung.
- ein AddIn, das nur das Speichern dieser Mappe abfängt,
- ein Workbook_BeforeSave Makro, das den Benutzernamen als Kriterium nutzt um sicherzustellen, dass das Versionsdatum nur dann verändert wird, wenn Du die Datei speicherst
- ...

Am einfachsten dürfte es sein, das Makro in Deiner persönlichen Arbeitsmappe abzulegen und manuell (ggfs. per Schaltfläche) aufzurufen.

Gruß

Johannes
Code:

Es wurde in diesem Beitrag der Code für dieses Forum angepasst.

 

Hallo Johannes,
DIE LÖSUNG IST GENIAL UND FUNKTIONIRT SUPER.
Ich hab sie noch mit
Automatischem schliessen und speichern erweitert und sprech sie über einen Menubutton an.

Eine kleine Frage hab ich jetzt aber noch, muß aber Dabei sagen, dass ich (vielleicht haben es ja schon einige gemerkt) in VB oder EXCEL Programmierung nicht ganz so stark bin deshalb ist sie für den einen oder anderen Crack hier ziemlich lächerlich:
Gibt es eine möglichkeit dieses Modul für jede Exceldatei aufrufbar zu machen (per Button)? Im Moment ist der angelegte Button ja auf die eine Datei fixiert und den Code in jede Datei zu Codieren ist recht mühsam. Dann würde ich nämlich alle Exceldateien auf diese Art und weise schließen, hätte keine Automation notwendig und die gefahr, das man mal vergisst mit Hilfe des Buttons zu schließen wäre dann nicht mehr so groß weil man sich ja dran gewöhnt hat.

Dennoch vielen vielen Dank an alle für eure Mühen - ich bin durch euch schon ein ganzes Stück weitergekommen.

Gruß,
Oliver

 

Hi Oliver,

danke für das Kompliment, aber das Attribut GENIAL scheint mir hier doch etwas inflationär...

Um das Makro für alle Abeitsmappen verfügbar zu machen kannst Du es in die persönliche Makro-Arbeitsmappe (Personl.XLS) kopieren und die Makroverknüpfung der Schaltfläche darauf umlenken.

Die Personl.XLS ist, sofern sie überhaupt schon existiert, ausgeblendet, ist aber im VBA-Editor sichtbar.

Sollte sie noch nicht existieren, wird sie automatisch angelegt, wenn Du mit dem Makrorekorder ein kleines Script (z.B. eine Zelle selektieren) aufzeichnest und als Speicherort die "persönliche Makro-Arbeitsmappe" wählst. Das frisch aufgezeichnete Makro kannst Du ja wieder löschen.

Viel Erfolg

Johannes

 

Hi Johannes,
nochmal vielen Dank für die Hilfen, auch für die letzte - klappt prima.

Übrigens: mit Genial meinte ich weniger deine wenigkeit (nur um die Aussage ein wenig zu relativieren ;-) ), sondern die Idee die hinter dieser Lösung steckt... - Ich wär im Leben nicht auf die "Fusszeile" als Lösungsansatz gekommen!! *top.gif*

Also vielen Dank nochmal... auch an alle anderen und dickes Lob an dieses Forum!

Gruß

Oliver