Datum automatisch einfügen
18.01.2005 10:21:32
micha873
jetzt habe ich endlich gefunden wie ich mein Datum automatisch einfügen kann ohne das es am nächsten Tag beim öffnen wieder geändert wird. So und jetzt stehe ich als Excel Neuling vor dem nächsten Problem. Wenn ich in Spalte D einen Wert schreibe soll er in Spalte A das aktuelle Datum einfügen ( ohne es später wieder zu ändern). Jetzt soll er aber, wenn in Spalte D schon ein Wert steht, das Datum in Spalte A nicht mehr ändern.
Kann mir jemand bei dem wahrscheinlich kleinem Problem helfen?
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Range("$D$1").Select
Selection.Copy
Cells(Target.Row, Target.Column - 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells(Target.Row + 1, Target.Column).Select
End If
End Sub
Danke für Eure Hilfe
Gruß Micha873
Anzeige