Supportnet / Forum / Tabellenkalkulation

Hi, ist es möglich, dass ich in einer Zelle das Datum der letzten Veränderung im Zellbereich A1:G15 angezeigt bekomme ? gruss sebbl

Hi Sebbl,

sicher geht das allerdings nur als Makro. Ich hab dir mal ein Beispiel gebastelt:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Bereich As Range

Set Bereich = Range("A1:G15")

If Intersect(Target, Bereich) Is Nothing Then
 Exit Sub
Else
Cells(1, 8).Value = Now
End If

End Sub   

In dem Beispiel wird in die Zelle H1 das Datum der Änderung inkl. Zeit geschrieben. Wenn du nur das Datum haben willst, statt Now einfach Date setzen. Die entsprechende Zelle läßt sich natürlich auch beliebig ändern.
Als Änderung wird nur eine Änderung des Zellwertes erkannt, nicht jedoch eine Formatänderung.
Werden leere Zellen gelöscht, wird das auch als Änderung erkannt, obwohl ja der Zellwert bei leeren Zellen gleichbleibt.


Gruß Primut


PS: Kennst du dich aus mit Makros? : Mit Alt +F11 in die Entwicklungsumgebung, Doppelklick auf entsprechendes Tabellenblatt und dort den Code einfügen

Hi Primus,

hat super funktioniert. DANKE

gruss sebbl

oh Primus = Primut ;O)

Sorry

• Datum der letzten Änderung ändern
• Excel2000, Tabellenabfrage
• Datum in An- und Verkauf stimmt nicht
• Datum vergleichen im Batchprog.
• Wie kann ich die letzten fünf (nichtleeren) Zellen einer Spalte aus einer zweiten Arbeitsmappe auslesen?