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.

Eine Möglichkeit zur Konvertierung ist die Verwendung der HYPERLINK-Funktion. Fügen Sie diese Formel in Zelle B1 ein und kopieren Sie sie so viele Zellen wie nötig:

=IF(A1="","",HYPERLINK(IF(LEFT(A1,7)="http://","","http://")&A1))

Das Ergebnis ist, dass Spalte B Hyperlinks für alles in Spalte A enthält. Die Formel ist nicht besonders robust, da sie nur das Vorhandensein oder Fehlen des Textes „http: //“ behandelt und möglicherweise auch benötigt wird mit „https“ -Adressen. Es ist möglich, die Formel anzupassen (d. H. Komplexer zu machen), aber Sie können auch die Verwendung eines Makros in Betracht ziehen, um die Konvertierungen durchzuführen.

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()

Dim sTemp As String     Dim sURL As String     Dim cell As Range

For Each cell In Selection         If cell.Value <> "" Then             sTemp = Left(cell.Value, 7)

If sTemp = "http://" Or sTemp = "https:/" Then                 sURL = cell.Value             Else                 sURL = "http://" + cell.Value             End If             ActiveSheet.Hyperlinks.Add Anchor:=cell, _               Address:=sURL, 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: //“ oder „https: /“ vorangestellt ist, wird das Präfix „http: //“ 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 (5825) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Konvertieren eines Bereichs von URLs in Hyperlinks.