Hinterlegten Link nach Suchwort vom anderen Blatt öffnen

[Safety-Tussi]

uh uh nu hab ichs..... vielen lieben dank euch :D

das wars letzten endes:

Code:

Sub Gefahrstoffkataster_openSDB()
'
' Gefahrstoffkataster_openSDB Makro
'
Dim rng As Range
With Sheets("Gefahrstoffkataster").Columns(2)
   Set rng = .Find(What:=Sheets("INFO").Cells(3, 2), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
   If Not rng Is Nothing Then rng.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End With
End Sub

Ihr seid klasse ! :19: