Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Bei Klick nicht das nur das X, sondern auch bestimmte Zelle löschen
Normale Version: Bei Klick nicht das nur das X, sondern auch bestimmte Zelle löschen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Beltason

04.03.2021, 12:53
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

04.03.2021, 13:20
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

04.03.2021, 13:45
Absoluter Hammer, Perfekt....Danke!!!!! 18 18 18
Clever-Excel-Forum > Office-Anwendungen > Excel > Bei Klick nicht das nur das X, sondern auch bestimmte Zelle löschen