Aktuelles Datum wenn bestimmtes Wort

[Beltason]

Hallo Leute,

ich habe ein kleines Problem wo ich auch nach googeln keine Hilfe gefunden habe.

Wir haben eine todo-liste in der ab Zelle M:2 das Wort Nein für nicht erledigt eingetragen wird.
Nun zur Frage:

Kann man bei einfachem Klick auf die Zelle M:2 das Wort Nein in Ja (für erledigt) automatich umwandeln und 2 !!! Spalten weiter ab O:2 das aktuelle Datum eintragen??

Das ganze soll dann bis Zelle M:200 funktionieren!

Vielen Dank Leute..

[MisterBurns]

Hallo,

ein Ereignis für einfachen Klick gibt es nicht, nur für Doppelklick oder Rechtsklick.
Ich empfehle das Rechtsklickereignis, sonst bekommst du ständig ein "Ja" in die Zelle, wenn mal einer Doppelklickt um "Nein" einzutragen.

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("M2:M200")) Is Nothing Then
    Cells(Target.Row, "M") = "Ja"
    Cells(Target.Row, "O") = Date
    Cancel = True
End If
End Sub

Der Code gehört in das Modul des Tabellenblatts.

BTW: Man schreibt nicht M:2, nur M2

[Beltason]

Wow, innerhalb weniger minuten kompetente Antwort.... :18:

Funktioniert einwandfrei, Vielen Dank :19: :19: :100: