Text in einer bestimmten Zelle per Makro suchen

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich habe (Excel 2007) immer die gleiche Zelle, in der aber immer ein unterschiedlicher bzw. kein Text erscheint. Diesen Text möchte ich per Makro in einem Tabellenblatt, welches „Daten“ heißt, finden.
Warum ich das benötige ist, weil ich eine verlinkte PDF Datei öffnen muss. Es ist aber nicht immer eine PDF verlinkt. Der Text, den ich suchen möchte, ist die Linkbezeichnung.
Vielen Dank im Voraus!
Beste Grüße
Bernd

#2

ich habe (Excel 2007) immer die gleiche Zelle, in der aber
immer ein unterschiedlicher bzw. kein Text erscheint. Diesen
Text möchte ich per Makro in einem Tabellenblatt, welches
„Daten“ heißt, finden.
Warum ich das benötige ist, weil ich eine verlinkte PDF Datei
öffnen muss. Es ist aber nicht immer eine PDF verlinkt. Der
Text, den ich suchen möchte, ist die Linkbezeichnung.

Hallo Bernd,

meinst du das so:

Sub tt()
With Worksheets(1) 'Worksheets("Daten")
 If Right(.Range("A1").Hyperlinks(1).Address, 4) = ".pdf" Then
 MsgBox .Range("A1").Hyperlinks(1).Address & vbLf & "gefunden in A1."
 End If
End With
End Sub

Gruß
Reinhard