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