Supportnet / Forum / Tabellenkalkulation
Nach Änderung von verschiedenen Zellen in einer Zeile; Datum setzen?
Frage
Hallo zusammen,
habe eine Frage: Wenn in einer oder allen Zellen z.B. A2 bis E2 Änderungen vorgenommen worden sind, soll z.B. in Zelle F2 das aktuelle Datum gesetzt werden, geht das?
Gruß Piet
Antwort 1 von rainberg
Hallo Piet,
kopiere diesen Code ins Codefenster des relevanten
Tabellenblattes.
Gruß
Rainer
kopiere diesen Code ins Codefenster des relevanten
Tabellenblattes.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:E2")) Is Nothing Then
Target.Offset(0, 6 - Target.Column).Value = Date
End If
End Sub
Gruß
Rainer
Antwort 2 von Piet12
Hallo Rainer,
vielen Dank für die prompte Antwort.
Leider funktioniert es nicht. Ich habe es in das Codefenster eingetragen und in dem Tabellenblatt getestet.
Meine Frage bezog sich auf Beispielzellen:
Wenn in einer oder allen Zellen z.B. A2 bis E2 Änderungen vorgenommen worden sind, soll z.B. in Zelle F2 das aktuelle Datum gesetzt werden, geht das?
Gibt es vielleicht für den nachfolgenden Sachverhalt eine Lösung:
A2 bis E2 Änderungen vornehmen; Änderungsdatum in F2;.
A3 bis E3 Änderungen vornehmen; Änderungsdatum in F3;
usw.
Gruß
Piet
vielen Dank für die prompte Antwort.
Leider funktioniert es nicht. Ich habe es in das Codefenster eingetragen und in dem Tabellenblatt getestet.
Meine Frage bezog sich auf Beispielzellen:
Wenn in einer oder allen Zellen z.B. A2 bis E2 Änderungen vorgenommen worden sind, soll z.B. in Zelle F2 das aktuelle Datum gesetzt werden, geht das?
Gibt es vielleicht für den nachfolgenden Sachverhalt eine Lösung:
A2 bis E2 Änderungen vornehmen; Änderungsdatum in F2;.
A3 bis E3 Änderungen vornehmen; Änderungsdatum in F3;
usw.
Gruß
Piet
Antwort 3 von rainberg
Hallo Piet,
... genau das macht das Makro, ist getestet.
So funktioniert das makro im gesemten Bereich A:E.
Gruß
Rainer
Zitat:
Meine Frage bezog sich auf Beispielzellen:
Wenn in einer oder allen Zellen z.B. A2 bis E2 Änderungen vorgenommen worden sind, soll z.B. in Zelle F2 das aktuelle Datum gesetzt werden, geht das?
Meine Frage bezog sich auf Beispielzellen:
Wenn in einer oder allen Zellen z.B. A2 bis E2 Änderungen vorgenommen worden sind, soll z.B. in Zelle F2 das aktuelle Datum gesetzt werden, geht das?
... genau das macht das Makro, ist getestet.
So funktioniert das makro im gesemten Bereich A:E.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:E")) Is Nothing Then
Target.Offset(0, 6 - Target.Column).Value = Date
End If
End Sub
Gruß
Rainer
Antwort 4 von Piet12
Hallo Rainer,
sorry,
bei Excel 2003 funktionierren beide codes, bei Excel 2007 nicht.
Nochmals vielen Dank für die Hilfe!
Gruß
Piet
sorry,
bei Excel 2003 funktionierren beide codes, bei Excel 2007 nicht.
Nochmals vielen Dank für die Hilfe!
Gruß
Piet