Hallo David,
deine Beschreibung ist etwas vage. Ein konkretes Beispiel wäre besser. Falls ich dich richtig verstehe, hast du in verschiedenen Tabellenblättern deiner Arbeitsmappe diverse Werte stehen. Zusätzlich gibt es ein Tabellenblatt dass alle vorhandenen Werte nochmals in einer Übersicht listet. In diesem willst du nun den Doppelklick durchführen und dann zu dem entsprechenden Wert in einem der anderen Tabellenblätter springen?
Wenn dies dein Wunsch ist, dann gib in das Modul, das dem Tabellenblatt "Übersicht" entspricht, folgenden Code ein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cl As Range, sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If Not sh Is Target.Parent Then
Set cl = sh.Cells.Find(Target.Value)
If Not cl Is Nothing Then
cl.Parent.Activate
cl.Select
Exit For
End If
End If
Next sh
If cl Is Nothing Then MsgBox "Der Wert " & Target.Value & " wurde in keinem anderen Tabellenblatt gefunden.", vbInformation
Cancel = True
End Sub
Ab sofort kannst du in deiner Übersicht per Doppelklick zu dem entsprechenden Blatt springen und die Zelle markieren.
Solltest du jedoch etwas Anderes gemeint haben, dann beschreib dein Problem bitte nochmal genauer.
Gruß Mr. K.
|