zwei Makro in einem zusammenführen?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Bereich As Range

Set Bereich = Me.Range("H7:H35")

If Not Intersect(Target, Bereich) Is Nothing Then

Cancel = True

Target = "x"

End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   Const intSpalte = 1  '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