Mit folgendem Code setze ich per doppelklick das Datum in diese Zelle.
Wie kann ich zusätzlich noch bei doppelklick in T4:T250 in der jeweiligen Zeile In Spalte A den Wert 2 setzen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngRow As Long
If Not Intersect(Target, Range("T4:AA250")) Is Nothing Then
Cancel = True
Target = Date
End If
Liebe Grüße Stefan