Ja das war schon sehr hilfreich vielen Dank,
nur möchte ich dass ich bei durchgeführtem Doppelklick in das Workbook "Vorbereitungstabelle" ins Arbeitsblatt "RDB" springe. Hab deinen Code benutzt, hab aber glaube etwas falsch gemacht. Hier der Code:
Private Sub worksheet_beforedoubleclick(ByVal target As Excel.Range, cancel As Boolean)
Dim cl As Range, sh As Worksheet
For Each sh In Workbook("Vorbereitungstabelle").Worksheets("RDB")
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
Bin leider noch nicht so gut und bin Dankbar über jede Hilfe
mfg
|