Zellen mit Hyperlinks finden
16.08.2005 19:04:01
Reinhard
im Archiv und bei Google wimmelt es von Hyperlinks aber in den sprechenden Betreffs sah ich nichts was mir weiterhilft. Auslesen von address und TextToDisplay kann ich aber wie erkenne ich die Zellen mit Hyperlinks ohne Fehlerabfangung?
mir fehlt so ein Befehl wie HasHyperlink oder eine Erwähnung in SpecialCells.
Also wie kann ich herausfinden ob die Zelle einen Hyperlink hat?
Folgender Code bbrachte mich nicht weiter, und warum kommt bei Address,Range,Parent,Name immer das Selbe also Pfad\Dateiname
Sub ttt()
Dim h As Hyperlink
For Each h In Worksheets(1).Hyperlinks
MsgBox h.Creator
MsgBox h.Address
MsgBox h.Range
MsgBox h.Parent
MsgBox h.Name
MsgBox h.SubAddress
' MsgBox h.EmailSubject ' gibt Fehler wahrscheinlich weil Link auf Datei zeigt
MsgBox h.ScreenTip
MsgBox h.Application
MsgBox h.Type
Next
end sub
Gruß
Reinhard