Automatisches Datum
13.10.2015 13:58:50
Chuwalbu
ich hätte da eine Frage zum VBA.
Folgendes:
Wenn ich in der Tabelle 1 Spalte A:A irgendwas eingebe (Egal ob Zahl oder Text), dann soll in Tabelle 2 Spalte A:A das Datum und Uhrzeit angezeigt werden (mit Now() versuche ich es gerade).
Leider bleibt das Datum und Uhrzeit nicht statisch, sondern alle Daten werden mit der jetztigen Uhrzeit verändert.
Momentan habe ich das:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Const myCol = 1
If Not Intersect(Target, Columns(myCol)) Is Nothing Then
Target.Offset(, 1) = IIf(Target(1) = vbNullString, vbNullString, Now)
End If
End Sub
Chuwalbu
Anzeige