John hat eine Arbeitsmappe mit weit über tausend URLs in Spalte A. Dies sind keine Hyperlinks. Sie sind gerader Text einzelner URLs. John möchte die URLs in aktive Hyperlinks konvertieren, aber die Konvertierung einzeln durchzuführen ist äußerst mühsam, insbesondere bei so vielen URLs.

Wie bei den meisten Langeweile in Excel besteht die Lösung darin, ein Makro für die Konvertierung zu verwenden. Um effektiv zu sein, müsste das Makro jede Zelle in einem ausgewählten Bereich durchlaufen und, wenn die Zelle nicht leer ist, den Inhalt in einen Hyperlink konvertieren. Folgendes reicht aus:

Sub URL_List()

For Each cell In Selection         If cell.Value <> "" Then             If Left(cell.Value, 7) = "http://" Then                 URL = cell.Value             Else                 URL = "http://" + cell.Value             End If             ActiveSheet.Hyperlinks.Add Anchor:=cell, _               Address:=URL, TextToDisplay:=cell.Value         End If     Next cell End Sub

Das Makro ist nicht kinderleicht. Es wird davon ausgegangen, dass eine Zelle, wenn sie überhaupt etwas enthält, eine gültige URL ist. Es überprüft den Zelleninhalt. Wenn dem Inhalt nicht der Text „http: //“ vorangestellt ist, wird er hinzugefügt. Der Hyperlink wird dann basierend auf dem Zelleninhalt erstellt.

_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 (3110) 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:

Konvertieren eines Bereichs von URLs in Hyperlinks.