An die hilfreiche Gemeinde,

ich möchte auf einem Tabellenblatt - unabhängig voneinander - mehrere Ereignisse mit einem Doppelklick auf unterschiedlichen Zellen starten. Hier zunächst zwei "Suchen", die Suche über D8 funktioniert, die über C8 leider nicht, die Aktivierung bleibt in C8 hängen, kann jemand helfen? Die erste Fehlermeldung "...mehrdeutiger Name ..." habe ich durch die Namensergänzun mit "_1" vermieden, mehr fällt mir als VBA-Neuling noch nicht ein.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim id, strSuchtext As String                               ' strSuchtext hinzugefügt
Dim Bereich As Range
 
id = ActiveCell
strSuche = InputBox("Bitte geben Sie den Suchtext ein:")    ' es erscheint ein Eingabefenster und merkt sich den Suchtext
                
If ActiveCell.Row = 8 And ActiveCell.Column = 4 Then        ' Wenn der Doppelklick auf die Zelle D8 erfolgt
    Set Bereich = Tabelle1.Range("D:D").Find(strSuche)      ' Suche nach dem eingegebenen Suchtext in Spalte D
        If Not Bereich Is Nothing Then
            Tabelle1.Activate
            Bereich.Select
        End If
End If
 
End Sub

Private Sub Worksheet_BeforeDoubleClick_1(ByVal Target As Range, Cancel As Boolean)
 
Dim id, strSuchtext As String                               ' strSuchtext hinzugefügt
Dim Bereich As Range
 
id = ActiveCell
strSuche = InputBox("Bitte geben Sie den Suchtext ein:")    ' es erscheint ein Eingabefenster und merkt sich den Suchtext
                
If ActiveCell.Row = 8 And ActiveCell.Column = 2 Then        ' Wenn der Doppelklick auf die Zelle B8 erfolgt
    Set Bereich = Tabelle1.Range("B:B").Find(strSuche)      ' Suche nach dem eingegebenen Suchtext in Spalte B
        If Not Bereich Is Nothing Then
            Tabelle1.Activate
            Bereich.Select
        End If
End If
 
End Sub