Bei Klick nicht das nur das X, sondern auch bestimmte Zelle löschen

[Beltason]

Hallo Leute, brauche Hilfe,

habe im Netzt diesen VBA Code gefunden, funktioniert Tadellos.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
    If Not Intersect(Target, Range("r8:r40, q8:q40")) Is Nothing Then
   
        Me.Unprotect
       
        If Target = "" Then
            Target = "X"
            Else
            Target = ""
        End If
        Me.Protect

        Cancel = True
    End If
End Sub




Nun möchte ich aber das bei Doppelklick, nicht nur das X erscheint, sondern auch 2 Zellen nach links z.B. P8 der Inhalt der Zelle gelöscht wird.

Kann da einer Helfen?

[Kuwer]

Hallo,

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("r8:r40, q8:q40")) Is Nothing Then
        Me.Unprotect
      
        If Target = "" Then
            Target = "X"
            Target.Offset(0, -2) = ""
        Else
            Target = ""
        End If
        Me.Protect

        Cancel = True
    End If
End Sub

Gruß Uwe

[Beltason]

Absoluter Hammer, Perfekt....Danke!!!!!