... rote Schrift hat, dann setze in aktive Zelle das aktuelle Datum. Wäre meine Frage. Wie realisiere ich das in VBA.
Danke im Voraus.
Gruss Bernd
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then Exit Sub
If Target.Offset(0, -1).Font.ColorIndex = 3 Then Target = Date
End Sub
Option Explicit
Private Sub CommandButton1_Click()
With ActiveCell
If .Column = 1 Then .Select: Exit Sub
If .Offset(0, -1).Font.ColorIndex = 3 Then .Value = Date
.Select
End With
End Sub