Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
512to516
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
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Aktuelle Änderungsdatum im Excel Sheet

Aktuelle Änderungsdatum im Excel Sheet
10.11.2004 18:32:02
Christoph
Hallo liebe Leute,
Besteht die Möglichkeit in einem Excelblatt eine Art Feldfunktion einzubauen, welche das Datum der letzten Änderung des Arbeitsblattes ausweist. Ähnlich wie bei den Dateieigenschaften, halt nur im einzelnen Arbeitsblatt.
Ich habe hierzu folgende Antwort erhalten. Funktioniert auch, aber kurz danach 100 % CPU Auslastung, so dass dies keine Hifle ist. Villeicht kann mir noch jemand ein Tip geben.
rechte Maustaste auf Blattregister - Code anzeigen wählen
aus linkem Dropdown-Feld Worksheet wählen
aus rechtem Dropdown-Feld Change wählen
den nun sichtbaren Prozedurrumpf wie folgt ergänzen:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("B1").Value = Date
Range("D1").Value = Time
End Sub

Die Zellen müssen natürlich angepasst und entsprechend formatiert werden (Datum und Zeit)
Sobald nun irgendein Eintrag in der Tabelle erfolgt, wird der Zeitstempel gesetzt.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktuelle Änderungsdatum im Excel Sheet
10.11.2004 18:40:39
Josef
Hallo Christoph!
Versuch's so!

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("B1").Value = Date
Range("D1").Value = Time
Application.EnableEvents = True
End Sub

Gruß Sepp
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige