Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datum automatisch einfügen

Datum automatisch einfügen
18.01.2005 10:21:32
micha873
Hallo
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum automatisch einfügen
Holli
Hallo Micha,
versuchs mal damit:

Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
If Cells(Target.Row, Target.Column - 3).Value = "" 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 If
End Sub

Gruß
Holger
Anzeige

130 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige