Hyperlinks konvertieren
19. September 2006
Das ist Makro besonders praktisch, wenn man beispielsweise lokale Pfadangaben (z.B. c:\temp\test.xls) eingefügt hat und diese in Hyperlinks, also "anklickbar", umwandeln möchte.
Mit der For...Each-Schleife werden alle Zellen der aktuellen Auswahl durchlaufen. Man hat jeweils über das Rangeobjekt "myCell" Zugriff auf die Zelle. Damit kann man über Hyperlinks.Add der Zelle einen Hyperlink zuweisen. Der "Anchor" ist die Zelle selbst, also myCell. Der Link, also die Address-Eigenschaft, entspricht dem Zelleninhalt (myCell.Value).
VBA:
-
Sub convertToHyperlink()
-
'converts all selected cells
-
'into hyperlinks
-
'09-2006 E.Bimczok
-
'www.profi-excel.de
-
-
Dim myCell As Range
-
For Each myCell In Selection
-
myCell.Hyperlinks.Add myCell, myCell.Value
-
Next myCell
-
-
End Sub
Montag 25. September 2006 um 10:39 am
Sehr schönes Makro. Weiter so!
Donnerstag 11. Oktober 2007 um 6:37 pm
Super. Vielen Dank. Genau das habe ich gerade gesucht
)