Farbe von Hyperlinks

[Michael Mueller]

Hi.

Hyperlinks in Zellen, welche man angeklickt hat, ändern ja die Farbe.
Standardfarbe - Blau
Besuchter Link - Violett

Kann man denn diese Farbe wieder zurücksetzten?
Wenn ich das Dokument schließe und wieder öffne sind diese Felder wieder
blau. Scheint sich also um eine Excel interne Historie zu handeln.

Kann ich dieses zurückfärben auch per VBA erreichen? Dachte da an sowas wie
Historie löschen.

Danke
Michi

[stefan onken]

Post by Michael Mueller
Hi.
Hyperlinks in Zellen, welche man angeklickt hat, ändern ja die Farbe.
Standardfarbe  - Blau
Besuchter Link - Violett
Kann man denn diese Farbe wieder zurücksetzten?
Wenn ich das Dokument schließe und wieder öffne sind diese Felder wieder
blau. Scheint sich also um eine Excel interne Historie zu handeln.
Kann ich dieses zurückfärben auch per VBA erreichen? Dachte da an sowas wie
Historie löschen.
Danke
Michi

hallo Michi,
so eine Historie kenne ich nicht, aber es ist möglich, den violetten
link durch überschreiben per VBA wieder in einen blauen umzuwandeln.
Bsp für link in A1:

ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), _
Address:=Range("A1").Value, _
TextToDisplay:=Range("A1").Value

Gruß
stefan

[Michael Mueller]

Hi Stefan.

Post by stefan onken

Post by Michael Mueller
Hyperlinks in Zellen, welche man angeklickt hat, ändern ja die Farbe.
Standardfarbe - Blau
Besuchter Link - Violett
Kann man denn diese Farbe wieder zurücksetzten?

so eine Historie kenne ich nicht, aber es ist möglich, den
violetten link durch überschreiben per VBA wieder in einen
blauen umzuwandeln.
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), _
Address:=Range("A1").Value, _
TextToDisplay:=Range("A1").Value

Das mit dem Überschriebn wußte ich nicht, habe es nun so gelöst:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Me.Hyperlinks.Add Anchor:=Target.Parent, _
Address:=Target.Parent.Value, _
TextToDisplay:=Target.Parent.Value
End Sub

Danke
Michi