Letztes Bearbeitungddatum
26.05.2004 14:22:42
Peter
mit dem untenstehenden Makro wird das letzte Bearbeitungsdatum einer Datei in die Zelle L1 geschrieben.
Funktioniert!
Nun meine Frage: Wie muß ich das Makro abändern so das in dem Tabellenblat"Betriebsaufträge" nur die, wenn Veränderungen in diesen Tabellenblatt gesehen, das aktuelle Datum in L1 gespeichert wird.
Wenn ich in anderen Tabellenblättern Veränderungen vornehme wird mit diesem Makro nämlich in jedem Blatt das Datum in L1 geschrieben, dies führt beim Drucken z.B. zu einem mehr seitigem Ausdruck.
Etwas kompliziert aber bin für jede Hilfe dankbar
Gruß Peter
'
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
'ByVal Target As Excel.Range)
'Dim Datumszelle As Range
'Application.EnableEvents = False
'If TypeName(Sh) = "Worksheet" Then
'Set Datumszelle = Sh.Range("L1")
'Datumszelle = Date
'End If
'Application.EnableEvents = True
'End Sub