06.03.2017, 14:27
uh uh nu hab ichs..... vielen lieben dank euch :D
das wars letzten endes:
Ihr seid klasse ! :19:
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