BeforeDoubleClick

[UweD]

Hallo


So?

Code:

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 00
        With Target.Offset(0, -1)
            .NumberFormat = "00"
            .Value = 0
        End With
       
        ' Zelle 2 links daneben (Spalte ?) löschen
        Target.Offset(0, -2).ClearContents
    End If
End Sub