+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: BeforeDoubleClick (/thread-29294.html)
BeforeDoubleClick - Thomasius - 25.01.2026
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