title image


Smiley Re: Zelleintrag Hyperlink? (VBA)
Hi,



hier hast du eine Funktion dafür (die kannst du auch als Tabellenfunktion nutzen):



Sub Prüfung()

If hasHyperlink(Cells(1, 1)) Then

    MsgBox "Hat einen Hyperlink", vbInformation, "INFO"

End If

End Sub



Function hasHyperlink(ByVal zelle As Range) As Boolean

Application.Volatile

If zelle.Hyperlinks.Count > 0 Then

    hasHyperlink = True

Else

    hasHyperlink = False

End If

End Function

 Code eingefügt mit Syntaxhighlighter 1.16
Der Zugvogel
(mIsCHa Reichelt)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: