Zellen umformatieren, Hyperlinks ausgeben

19/01/2008 - 14:58 von pRumpf | Report spam
Hallo
ich glànze leider durch absolute unkenntnis in excel und vba.

Ich habe ein Excelsheet bekommen in dem viele Hyperlinks vorhanden
sind.
Ich will das Excel nach CSV exportieren.
Mein Problem ist, dass beim CSV Export die Hyperlink-Adr. nicht
exportiert werden, sonden den Anzeigenamen des Hyperlink.. Ich habe
aber bereits herausgefunden, dass wenn ich den Anzeigenamen lösche ich
im Export den gewünschten link habe.

Ich habe schon etwas mit einem Makto rumgespielt (aufgezeichnet):

Range("D6").Select
Selection.Hyperlinks(1).TextToDisplay = ""


Problem1: Ändere ich die Range auf z.B. D7 und lasse das Makto laufen
passiert nichts ausser dass die Zelle selektiert wird.

Problem 2: wie kann ich alle Zellen durchlaufen, prüfen ob Hyperlinks
vorhanden sind und wenn ja den "TextToDisplay" auf "" setzen

Vielen Dank
Peter
 

Lesen sie die antworten

#1 Wolfgang Habernoll
19/01/2008 - 15:48 | Warnen spam
Hallo Peter

schrieb im Newsbeitrag
news:
Hallo
ich glànze leider durch absolute unkenntnis in excel und vba.

Ich habe ein Excelsheet bekommen in dem viele Hyperlinks vorhanden
sind.
Ich will das Excel nach CSV exportieren.
Mein Problem ist, dass beim CSV Export die Hyperlink-Adr. nicht
exportiert werden, sonden den Anzeigenamen des Hyperlink.. Ich habe
aber bereits herausgefunden, dass wenn ich den Anzeigenamen lösche ich
im Export den gewünschten link habe.

Ich habe schon etwas mit einem Makto rumgespielt (aufgezeichnet):

Range("D6").Select
Selection.Hyperlinks(1).TextToDisplay = ""

Problem1: Ändere ich die Range auf z.B. D7 und lasse das Makto laufen
passiert nichts ausser dass die Zelle selektiert wird.



du sprichst immer den 1.Hyperlink an

Problem 2: wie kann ich alle Zellen durchlaufen, prüfen ob Hyperlinks
vorhanden sind und wenn ja den "TextToDisplay" auf "" setzen



versuche es mal mit diesem Code (ggf. Name Tabelle1 anpassen)

Sub HLTextChange()
Dim objI As Object
Dim wksTab As Worksheet

Set wksTab = Application.Worksheets("Tabelle1")
For Each objI In wksTab.Hyperlinks
objI.TextToDisplay = objI.Address
Next

End Sub

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen