Datum
26.06.2003 21:17:58
Sandra
Ich hab zwei Antworten auf die Frage:
ich möchte gern eine Makro schreiben das, wenn in einen bestimmten Bereich eine Änderung
vorgenommen wurde in ein bestimmtes Feld das aktuelle Datum schreibt.
ZB.
Im Bereich A1 bis A16 wurde etwas geändert so soll in Spalte A20 das aktuelle Datum reingeschrieben / gespeichert werden
ABER LEIDER funktioniern beide Lösungen nicht
Danke für die zwei antworten aber beide funktionieren nicht
Bei der Ersten:
private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column = 1 And Target.Row < 20 Then Cells(21, 1) = Date
kommt nicht das Aktuelle Datum sonden eins von jahr 1900
bei der Zweiten Lösung:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Range("A2:A18"), Target) Is Nothing Then Exit Sub
Rage("A20").Value = Date
Kommt die Fehlermeldung: Projekt bzw. Bibliothek nicht gefunden
was kann ich tun ?