automatischer Eintrag des Datums

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 25 Then Exit Sub ' Eintrag in Spalte y betätigt den Auslöser 'wenn in Spalte x bereits was eingetragen wurde und in Spalte y ein neuer Einrag 'erfolgt, dann in Spalte Z das jetzt aktuelle Datum eintragen und "einfrieren": If Target.Offset(0, -1) <> "" Then With Target.Offset(0, 1) .FormulaR1C1 = "=TODAY()" .Copy .PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End With End If End Sub

Hallo Roland und Christoph,
Danke dass Ihr mir helfen wollt.
Zum besseren Verständnis für Roland: Es ist scheissegal wann das Makro oder die Formel ausgelöst wird. Wichtig ist, dass der Anwender beide Einträge, x und y gemacht haben muss und danach in z das Datum des Eintrags erscheint damit niemand bescheissen kann. Die Uhrzeit ist unnötig.
Die Lösung von Christoph flöst mir Vertrauen ein, den 2. Teil der Formel mit Kopieren-Werte einfügen usw verstehe ich, aber den Anfang nicht. Da bin ich einfach zu unbedarft, folglich hat es nicht funktioniert. Wo trage ich den Tabellennamen und Spalte ein? Muss ich nicht noch ein Sub Worbook_beforeClose() einfügen? Kannst du mir da noch auf die Sprünge helfen?
Meine Datei heisst "Korrekturmaßnahmen", das Tabellenblatt "Liste Maßnahmen" vom Anwender auszufüllende Spalten sind "J" und "K", das Datum kommt in Spalte "M".
Danke nochmals
Winfried

Hi Winfried,
ich bin bei deiner Formulierung von "x, y, und z" von den Spalten-Namen ausgegangen.
In sofern habe ich im Makro geschrieben, dass ein Eintrag in SpalteX vorhanden sein muss, und wenn dann eine Änderung in SpalteY passiert, wird das heute aktuelle Datum
in SpalteZ eingetragen.
Das passiert alles in der "Worksheet_Change-Anweisung", dass heisst, wenn du im aktuellen Tabellenblatt deiner Exceldatei eine Änderung in SpalteY vornimmst, wird das Makro ausgelöst - unabhängig vom Dateinamen, weil "WorkSheet" und nicht "Workbook".
Daher: die Worksheet-Change-Anweisung ist auf SpalteY (=Spalte25) begrenzt:
"If Target.Column <> 25 Then Exit Sub"
Wenn in SpalteX (also eine Spalte links von SpalteY - entspricht: "Target.Offset(0, -1)")
etwas eingetragen ist und sich in der "Target-Spalte" (=SpalteY) etwas ändert, dann passiert etwas eine Spalte rechts von der "Target-Spalte" (- entspricht: "Target.Offset(0, 1)"), also in der Spalte Z.
In deinem Fall, wenn jetzt die Spalten: J, K und M die relevanten Spalten sind,
würde das Makro lauten:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 11 Then Exit Sub
If Target.Offset(0, -1) <> "" Then
With Target.Offset(0, 2)
.FormulaR1C1 = "=TODAY()"
.Copy
.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
End Sub

Das ganze könnte noch verfeinert werden, im Sinne von:
Wenn in Spalte M schon ein Datum eingetragen ist, dann führe das Makro nicht aus.
Bsp:
"If Target.Offset(0, -1) <> "" And _
Target.Offset(0, 2) = "" Then
"
Des Weiteren wäre es möglich, die Einträge in Spalte M nicht mehr ändern zu können.
(Bsp: über ein Makro, dass den Blattschutz aktiviert) etc. etc.
mit der Hoffnung, dir geholfen zu haben
Gruß
Christoph

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread