ich möchte gerne ein einfaches Doppelklick-Event anwenden.
Bisher habe ich folgenden Code, der bei einer Spalte auch gut funktioniert.
Kann mir jemand sagen, wie ich das auf mehrere Spalten anpassen kann, z.B. Spalte A bis E ?
Mein Code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then ' column A
Cancel = True
Select Case Target.Value
Case "X": Target.ClearContents
Case Else: Target.Value = "X"
End Select
End If
End Sub
Vielen Dank für Eure Hilfe. LG,
Tanja