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
|