BeforeDoubleClick

[Thomasius]

Hallo
habe etwas rumgebastelt und hänge jetzt an  
Target.Offset(0, -1).ClearContents das dann die Leerzelle mit 00 gefüllt wird . Hatte immer ="00"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' Überprüfen, ob die Spalte F (Spalten angeklickt wurden
    If Not Intersect(Target, Range("f6:f17,m6:m17")) Is Nothing Then '--Aenderung in Range
    ' If Target.Column = 1 Then

   
        ' Verhindern, dass Excel in den Bearbeitungsmodus geht
        Cancel = True
       
        ' Haken in die angeklickte Zelle setzen
        Target.Value = Chr(252)
       
        ' Zelle links daneben (Spalte ?) löschen
        Target.Offset(0, -1).ClearContents
        Target.Offset(0, -2).ClearContents
    End If
End Sub
LG Thoma