Kann mir jemand das Skript ergänzen?
Ich möchte gern auf der Anfangszelle "1" automatisch ein "x" hinterlassen bevor es weitergeht...
Danke & Grüss Hartmut
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Target.Offset(0, 2).Resize(1, 3).Copy
End Sub