Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Datum, Zeit der letzten Änderung anzeigen





Frage

Hallo, ...mal wieder ein kleines Problemchen: Ich habe eine Excel Tabelle mit mehreren Tabellenblättern. Die Werte in den Tabellenblättern ändern sich, da sich die Zelleinträge auf andere Tabellen (die von anderen Leuten bearbeitet werden) beziehen. Ich möchte, dass mir auf jedem Tabellenblatt in der Zelle A1 angezeigt wird wann sich etwas geändert hat. Wichtig ist, dass es NICHT darum geht wann die Tabelle das letzte mal geöffnet wurde und auch NICHT darum wann sie das letzte mal gespeichert wurde (man kann ja auch speichern ohne dass sich was geändert hat). Verständlich? Für Hilfe bin ich sehr dankbar!!

Antwort 1 von Beverly

Hi,

schreibe in das Klassenmodul DieseArbeitsmappe folgenden Code

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Cells(1, 1) = Now
End Sub


Bis später,
Karin

Antwort 2 von Hajo_Zi

Halo Unbekannter,

Unter DieseArbeitsmappe

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("A1") = Date
End Sub

Gruß Hajo

Antwort 3 von sickboy1

Hallo!

Großartig funktioniert!
Ich danke!!!


PS:
A pro pos "Unbekannter": ich habe mich dann auch mal registriert...allerdings ist das Paßwort noch nicht angekommen?!

Antwort 4 von sickboy1

...achso: doch noch ne kleine Frage: die Krönung wäre, wenn Datum UND Uhrzeit angezeigt würden. geht das auch problemlos?

Wenn nicht...das ist nicht sooo wichtig!

Antwort 5 von Hajo_Zi

HAllo Unbekannter,

hast Du den Vorschlag von Karin getestet? Ich glaube NEIN.

Gruß Hajo

Antwort 6 von sickboy1

Ich habe den Vorschlag getestet. Passiert bei mir auch nix anderes.

Hätte ich noch irgendwas anpassen müssen?!?

Antwort 7 von Hajo_Zi

Hallo Unbekannter,

die Zele muss entsprechend formatiert sein oder ergänze folgende Zeile
Range("A1").NumberFormat = "dd/mm/yy hh:mm"

Gruß Hajo

Antwort 8 von sickboy1

Also..bei mir sieht das jetzt so aus:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Range("B1").NumberFormat = "dd/mm/yy hh:mm"
Cells(1, 1) = Now
End Sub


- Ich habe mal A1 ind B1 geändert
- bei einigen Tabellenblättern funktioniert das, bei anderen nicht, bei einigen stehen Datum und Uhrzeit trotzdem in Zelle A1!


Jetzt bin ich doch wieder etwas verwirrt!
Was macht denn "Cells(1, 1)" überhaupt?

By the way: ich danke trotzdem schonmal für die ganze und schnelle Hilfe!!!

Antwort 9 von Hajo_Zi

Hallo Unbekjannter,

die Formatierung nach dem einschreiben. Mir ist nicht klar warum Du in Zelle A1 was reinschreibst und dann B1 formatierst.

Ich würde beides bei der gleichen Zelle machen.

Gruß Hajo

Antwort 10 von sickboy1

da habe ich mich wohl nicht richtig ausgedrückt!

Ich wollte Datum und Uhrzeit in Zelle B1 scheiben und auch B1 entsprechend formatieren!

Antwort 11 von Hajo_Zi

Hallo Unbekannter,

und wo ist das Problem, schreibe Now in B1 und nivcht in A1

Gruß Hajo

Antwort 12 von sickboy1

Ich schätze, dass ich mal komplett auf dem Schlauch stehe gerade!

Was ich gemacht habe:
Editor geöffnet, Skript eingefügt, gespeichert, fertig.

Muss ich denn jetzt noch ne Formel nach dem Motto "=Now" in die Zelle B1 schreiben? Habe ich gemacht, klappt aber nicht.

Sorry, bin da mehr so der (interessierte) Anfänger!

Antwort 13 von Hajo_Zi

Hallo Unbekannter,

mein Code
Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("A1") = Date
End Sub

geändert auf Now
Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("A1") = Now
End Sub

Formatierung nachgetragen
Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("A1") = Now
Range("A1").NumberFormat = "dd/mm/yy hh:mm"
End Sub

geändert auf B1
Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("B1") = Now
Range("B1").NumberFormat = "dd/mm/yy hh:mm"
End Sub

irgendwie habe ich verpast was da so schwierig ist.

GRuß Hajo

Antwort 14 von sickboy1

also...ich habe Deinen Code jetzt nochmal eingefügt!
Funktioniert!
Danke für Deine Geduld! Hast jedenfalls wirklich geholfen!!

Ich wünsche noch nen schönen Tag!
:-)

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: