Office: (Office 2016) Zeitstempel mit Kontrollkästchen einfügen

Hallo,
ich benötige Eure Hilfe.
Ich erstelle gerade eine Bewertungsmatrix bei der einzelne Punkte mit einem Kontrollkästchen abgehakt werden wenn der Prüfling es erledigt hat.
Dazu habe ich in den Zellen AA13-55 jeweils ein Kontrollkästchen eingefügt und das Kontrollkästchen mit der Zelle verknüpft. (Kontrollkästchen AA13 = AA13Wahr/Falsch)
Jetzt soll mit anklicken des jeweiligen Kästchens in Reihe C in ein statischer Zeitstempel erscheinen.
Bsp. AA13=Wahr dann C13=Zeitstempel
Das ganze für die Zellen AA13-55/C13-55
Meine bisherigen Versuche mit Jetzt() funktionieren leider nicht mit einer Wenn- Formel.
Kann mir jemand einen VBA Code erstellen oder mir schreiben wie ich anstatt Jetzt() eine feste aktuelle Zeit in die Zelle eintragen kann.
Vielen Dank

 

Hi Sebastian,

weise folgenden Code jedem der Konstrollkästchen zu:

Code:

Sub datum1()
    '******************************************************
    ' 12.02.2023
    ' erstellt von Karin (Beverly), http://excel-inn.de
    ' beverly_forums@web.de
    '******************************************************'
    With ActiveSheet.Shapes(Application.Caller)
        If .DrawingObject.Value = 1 Then
            .DrawingObject.TopLeftCell.Offset(0, -24) = Date
        Else
            .DrawingObject.TopLeftCell.Offset(0, -24).ClearContents
        End If
    End With
End Sub

Beachte, dass die linke obere Ecke der Kontrollkästchen nicht über die linke obere Ecke der betreffenden Zelle hinausragen darf.

Frage: weshalb verwendest du überhaupt Kontrollkästchen? Dasselbe könnte man ganz einfach mittels Doppelklick in Spalte AA realisieren.

---

 

Hallo Karin, ich probiere es gleich mal aus.
Die Kontrollkästchen habe ich gewählt, da es damit bedienerfreundlicher sein sollte.