Cheryl hat ein Arbeitsblatt, das viele Hyperlinks enthält. Der Anzeigetext für jeden Hyperlink unterscheidet sich vom Ziel für den Hyperlink. Diese Hyperlinks befinden sich alle in Spalte A. Cheryl möchte den Anzeigetext in Spalte A belassen, die Ziel-URL in Spalte B verschieben und den Hyperlink in Spalte A löschen. Am Ende muss der Anzeigetext in Spalte A angezeigt werden , die URL in Spalte B und keine aktiven Hyperlinks im Arbeitsblatt.

Das Verarbeiten und Extrahieren von Informationen aus Hyperlinks auf diese Weise erfordert die Verwendung eines Makros. Das folgende Beispiel zeigt ein flexibles Makro, das untersucht, welche Hyperlinks sich im ausgewählten Zellenbereich befinden. Wenn ein Hyperlink gefunden wird, wird die URL für den Hyperlink rechts neben dem Hyperlink eingegeben und der Hyperlink selbst gelöscht.

Dadurch bleibt der Anzeigetext in der Zelle, in der sich der Hyperlink befand.

Sub GetHLInfo()

Dim rRng As Range     Dim cell As Range

Set rRng = ActiveSheet.Range(ActiveWindow.Selection.Address)

For Each cell In rRng         If cell.Hyperlinks.Count > 0 Then             cell.Offset(0, 1) = cell.Hyperlinks(1).Address             cell.Hyperlinks(1).Delete         End If     Next End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (9896) gilt für Microsoft Excel 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Extrahieren von Hyperlink-Informationen.