Checkliste Funktion

[kazzz]

Hey,

ich möchte gerne in Excel eine Checkliste erstellen.
Damit funktioniert es schon mal in der Spalte 14.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Const intSpalte = 14  'Spalte mit Checkboxen
  'Nicht ausführen, wenn Doppelklick in anderer Spalte
  If Target.Column <> intSpalte Then Exit Sub
  'Standardmäßiges Doppelklick-Ereignis ausschalten
  Cancel = True
  If Target = "o" Then
     'Leere Checkbox abhaken
     Target.Formula = "þ"
  ElseIf Target = "þ" Then
     Target.Formula = "o"
     'Abgehakte Checkbox ausschalten
  ElseIf Target = "" Then
     Target.Formula = "o"
     
  End If
End Sub

Nun ist es aber so, dass ich diese Checkboxen neben der Spalte 14 auch noch gerne in Spalte 2 und 12 hätte.

Kann mir jemand helfen?
Danke im Voraus!

Liebe Grüße.

[Steffl]

Hallo,

ungetestet

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Const intSpalte = 14  'Spalte mit Checkboxen
  'Nicht ausführen, wenn Doppelklick in anderer Spalte
  Select Case Target.Column
'   If Target.Column <> intSpalte Then Exit Sub
  'Standardmäßiges Doppelklick-Ereignis ausschalten
     Case 2, 12, 14
        Cancel = True
        If Target = "o" Then
           'Leere Checkbox abhaken
           Target.Formula = "þ"
        ElseIf Target = "þ" Then
           Target.Formula = "o"
           'Abgehakte Checkbox ausschalten
        ElseIf Target = "" Then
           Target.Formula = "o"
           
        End If
  End Select
End Sub