Microsoft Excel

Herbers Excel/VBA-Archiv

Hyperlinks finden

Betrifft: Hyperlinks finden von: barbara_w
Geschrieben am: 22.07.2008 08:03:40

hallo allerseits

3 fragen:

habe eine excel-liste bekommen, da sind hyperlinks drinnen, leicht erkennbar an der farbe und, dass sie unterstrichen sind: Blau oder lila, wenn schon mal angeklickt.

Aber:
In dieser gibt es auch solche Links, die wie ein normaler Text aussehen, also schwarz und nicht unterstrichen.
Wie kann man die wieder in den typischen Link-Aussehen bringen?
Wie kann man solche Links in einer Excel-Tabelle finden? Ich kann ja nicht über jede Zelle drüberfahren und sehen, ob sich der Mauszeiger in einen Finger verwandelt.

Noch eine Frage:
Was muss man machen, dass der Link in Firefox, und nicht im Explorer, geöffnet wird?

LG
Barbara

  

Betrifft: Hyperlinks finden von: Kl@us-M.
Geschrieben am: 22.07.2008 09:13:30

Hi Barbara,

markiere das gesamte Blatt, Format, Formatvorlage, Formatvorlagenname "Hyperlink", Schriftart und -farbe einstellen und fertig ...

Gruss aus dem wilden Hunsrück
________Klaus-Martin________


  

Betrifft: AW: Hyperlinks finden von: barbara_w
Geschrieben am: 22.07.2008 09:38:28

Ist aber nicht zielführend, denn dann sieht das gesamte Blatt aus wie hyperlinks.


  

Betrifft: AW: Hyperlinks finden von: Beverly
Geschrieben am: 22.07.2008 10:15:52

Hi Barbara,

versuche es mal mit dem folgenden Code:

Sub links_korrigieren()
    Dim raZelle As Hyperlink
    Dim strAdresse As String
    For Each raZelle In ActiveSheet.hyperlinks
        strAdresse = raZelle.Address
        Range(Cells(raZelle.Range.Row, raZelle.Range.Column).Address).hyperlinks.Add anchor:= _
Range(Cells(raZelle.Range.Row, raZelle.Range.Column).Address), Address:=strAdresse, TextToDisplay:=strAdresse
    Next raZelle
End Sub




GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Hyperlinks finden von: barbara_w
Geschrieben am: 22.07.2008 11:17:11

OK, ohne vba wird das wohl nicht gehen.
habs ausprobiert, funktioniert.

geht das vielleicht auch so, dass der sichtbare text beibehalten bleibt?
denn jetzt sieht man den gesamten link, es soll aber der kurze text stehen bleiben, der vorher da gestanden ist.

Noch eine Frage:
Was muss man machen, dass der Link in Firefox, und nicht im Internet Explorer, geöffnet wird?


  

Betrifft: Frage 2 noch offen von: Beverly
Geschrieben am: 22.07.2008 12:07:53

Hi Barabara,

wenn der Anzeigetext ein andere als die Adresse ist, geht das natürlich auch: lass diesen _ Codeteil weg

, TextToDisplay:=strAdresse



Zu deiner 2. Frage: Ich bin mir nicht ganz sicher, aber ich glaube da gibt es keine Möglichkeit, da dies von MS so festgelegt ist. Ich stelle den Beitrag mal als noch offen, vielleicht hat ja noch ein anderer Helfer eine Lösung.


GrußformelBeverly's Excel - Inn


 

Beiträge aus den Excel-Beispielen zum Thema "Hyperlinks finden"