Clever-Excel-Forum

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.

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

kazzz

Steffl