Office: Datum wenn Zelle = "abgeschlossen"

Hallo,

ich habe eine Frage:
ich habe eine Exceltabelle, bei der in Spalte U ein Drop-Down menu ist.
Ich hätte gerne, wenn in dieses Drop-Down Menü auf "abgeschlossen" gesetzt wird, dass das aktuelle Datum in Spalte W eingetragen wird. Wenn in W bereits etwas eingetragen ist, sollte das übersprungen werden.

Ich habe verstanden, dass das über Makros laufen muss, da sonst das Datum nicht festgeschrieben ist.

Ich habe leider kaum Plan von VBA, daher bitte möglichst "Noobgerecht antworten".

Vielen Dank im vorraus.

P.S. ich bin neu hier, bitte verzeiht mir, wenn ich Etikette verletzt habe.

 

Hi,

Rechtscklick auf den Tabellenreiter -> Code anzeigen. Kopiere dann folgenden Code in das rechte (obere) Codefenster:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target.Cells(1), Columns(21).SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
        If Target = "abgeschlossen" Then
            If Not IsDate(Target.Offset(0, 2)) Then Target.Offset(0, 2) = Date
        End If
    End If
End Sub

Und nicht vergessen, die Arbeitsmappe als "Excel-Arbeitsmappe mit Makros (*.xlsm)" abzuspeichern.

---

 

Spitze, vielen Dank für die einfache hilfreiche Antwort.
Direkt ein Follow-Up, ich hoffe dass ist ok.
In derselben Tabelle, wenn im Drop-Down Menü in Spalte U von "wartet" auf "in Arbeit" oder "angelegt" gewechselt wird,
soll das Auftragsdatum in Spalte 1 durch das aktuelle (festgeschriebene) Datum ersetzt werden.
Wichtig wäre dabei, dass das nur passiert wenn der Status vorher "wartend" war.

Danke !

 

Dazu müsstest du schon mal eine Beispielmappe hochladen.

---