aktuelles Datum wenn Texteingabe in Spalte

Nach 24h stelle ich fest das das Datum täglich aktualisiert wird, Hm.
Und Sapoot hat in seiner Zusatzfrage schon darauf hingewiesen.
Das kleine Makro bezieht sich auf die Zelle C1, ich habe aber nun die komplette Spalte "C" nach unten mit der Formel [=wenn(c1="";"";heute())] aufgefüllt so das es auch D1; E1;..... betrifft.
Kann das Makro auch die Spalte abdecken?
Um es mal vollständig zu beschreiben:
Wir haben eine Aufgabenliste (ToDo). In diese haben wir immer ToDos für die Mitglieder eingetragen aber immer verpasst das aktuelle Datum einzutragen.
Datum Steht in Spalte "A", die Aufgaben in Spalte "C".
Schreibe ich in C eine neue Aufgabe soll das Datum des Eintrags fest fixiert in Spalte A eingetragen werden und da auch auf diesem Stand bleiben.
Würde ich nun eine Hilfszelle erstellen (z.B Spalte Z) und EINMALIG den Wert in Spalte A auslesen,würde dies funktionieren?
Ich könte auch die Tägliche Formel kopieren und als reiner Wert wieder eintragen,
aber ich denke (hoffe) mit eurer Unterstützung bekomme ich das Hin.
Danke Kersten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column <> 3 Then Exit Sub If Target.Cells.Count <> 1 Then Exit Sub If Target.Value = "" Then Exit Sub If Target.Offset(0, -2).Value <> "" Then Exit Sub Target.Offset(0, -2).Value = Date End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("C:C") Application.EnableEvents = False For Each RaZelle In Range(Target.Address) If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, -2) = Date Next RaZelle Application.EnableEvents = True Set RaBereich = Nothing End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("Q:Q") Application.EnableEvents = False For Each RaZelle In Range(Target.Address) If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, -16) = Date Next RaZelle Application.EnableEvents = True Set RaBereich = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

aktuelles Datum wenn Texteingabe in Spalte

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

aktuelles Datum wenn Texteingabe in Spalte

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread