AW: Zeile löschen mit DblClk wenn "x"
16.07.2016 15:04:36
Michael
Hi Hannes,
dann versuch's mal damit:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = "x" Then
ActiveSheet.Unprotect
Range("D" & Target.Row & ":J" & Target.Row & ",L" & _
Target.Row & ":S" & Target.Row).ClearContents
ActiveSheet.Protect
Cancel = True
End If
End Sub
Ich hatte ZEILE statt Zelle gelesen, sorry.
Falls was anderes alx "x" drinstehen kann (z.B. "y"), was erhalten bleiben soll, nimmst Du die Variante:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c
If Target = "x" Then
ActiveSheet.Unprotect
For Each c In Range("D" & Target.Row & ":J" & Target.Row & _
",L" & Target.Row & ":S" & Target.Row)
If c.Value = "x" Then c.Value = ""
Next
ActiveSheet.Protect
Cancel = True
End If
End Sub
Schöne Grüße,
Michael