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
Bis später,
Karin
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
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?!
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!
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
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?!?
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
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!!!
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
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!
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
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!
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
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!
:-)
Funktioniert!
Danke für Deine Geduld! Hast jedenfalls wirklich geholfen!!
Ich wünsche noch nen schönen Tag!
:-)