Office-Fragen.de

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

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

Thomasius

UweD