Nach dem ersten ausführen eines Hyperlinks wird dieses statt in blau
in einem Lila dargestellt. Wie kann ich mit VBA diese Farbänderung
oder diese geänderte Eigenschaft (welche) auslesen?
Danke für jede Info
Gerhard
MsgBox ActiveWorkbook.Styles("Followed Hyperlink").Font.ColorIndex
Sub test()
If Range("A3").Style = "Followed Hyperlink" Then
MsgBox "Wurde schon mal besucht...", , "Gebe bekannt..."
Else
MsgBox "Link ist noch jungfräulich...", , "Gebe bekannt..."
End If
End Sub
Sub test()
If Range("A3").Style = "Followed Hyperlink" Then
MsgBox "Wurde schon mal besucht...", , "Gebe bekannt..."
Else
MsgBox "Link ist noch jungfräulich...", , "Gebe bekannt..."
End If
End Sub
Sub hlinks()
Dim hlink As Hyperlink
For Each hlink In ActiveSheet.Hyperlinks
If hlink.Range.Style = "Followed Hyperlink" Then
MsgBox "schon Besucht"
End If
Next
End Sub
Sub test()
'unbesuchter Link
If Cells(4, 3).Style = "Followed Hyperlink" Then
MsgBox "Wurde schon mal besucht...", , "Gebe bekannt..."
Else
MsgBox "Link ist noch jungfräulich...", , "Gebe bekannt..."
'Ergebnis!!!
End If
'Besuchter Link
If Cells(7, 3).Style = "Followed Hyperlink" Then
MsgBox "Wurde schon mal besucht...", , "Gebe bekannt..."
Else
MsgBox "Link ist noch jungfräulich...", , "Gebe bekannt..."
'Ergebnis!!!
End If
'beide geben an jungfräulich zu sein
End Sub
Sub Test()
MsgBox Cells(4, 3).Style
MsgBox Cells(7, 3).Style
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
MsgBox Target.Parent.Address
End Sub