Datum & Kommentar mit Doppelklick
Peter
ich habe hier einen Code mit dem ich per doppelklick das Aktuelle Datum in eine Zelle schreibe. Ist es möglich das man da noch ein kommentar drannhängt. Das heißt ich mache einen Doppelklick das Datum wird gesetzt dann geht das Kommentar auf wo schon ein vorgefertigter Text drin steht "Ausgeliehen an:" und ich darunter noch etwas ergänzen kann. Bitte um hilfe !!!
mfg Peter
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([G3:G46], Target) Is Nothing Then
If Target.Value = Date Then
Target.Value = x1None
Else
Target.Value = Date
End If
Cancel = True
End If
End Sub