Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datum aktualisiert sich ständig

Datum aktualisiert sich ständig
18.03.2016 15:12:36
Protaris
Hallo zusammen,
nun habe ich einen schönen Code zum automatischen eintragen des Datums,
aber jedes mal wenn ich in dem Feld was eintrage, aktualisiert er das Datum.
Hier der Code:
Range("E" & rC.Row).FormulaR1C1 = "=IF(ISTEXT(RC[-4]),TODAY(),"""")"
Ausgangsituation:
Spalte A und E ist leer. Ich trage einen Text in Spalte A ein und in Spalte E soll das Datum wann dieses eingetragen worden ist stehen.
Wenn ich aber dann an einem anderen Tag in der Spalte A was ändere, dann will ich nicht das in Spalte E das Datum aktualisiert wird.
Weiss nicht wie ich das lösen soll. Bin nämlich leider kein VBA Profi.
Viele Grüsse

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum aktualisiert sich ständig
18.03.2016 15:15:45
Steve
Hallo Protaris,
dann prüfe doch die Zelle des Datums vorher. Nur wenn sie leer ist schreibe das Datum rein. Damit wird nix geändert wenn bereits ein Datum vorhanden ist.
If Range("E" & rC.Row) = "" Then _
Range("E" & rC.Row).FormulaR1C1 = "=IF(ISTEXT(RC[-4]),TODAY(),"""")"
lg Steve

AW: Datum aktualisiert sich ständig
18.03.2016 15:36:24
Protaris
Super Steve,
danke. Klappt! Habe zu komplex gedacht
Danke

AW: Datum aktualisiert sich ständig
18.03.2016 15:24:30
UweD
Du kannst das ganze natürlich direkt in VBA prüfen und das Datum fix reinschreiben.

With Sheets("Tabelle1")
If WorksheetFunction.IsText(.Range("A" & rc.Row)) Then
.Range("E" & rc.Row) = Date
Else
.Range("E" & rc.Row).ClearContents
End If
End With
Gruß UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige