Eine Möglichkeit, Daten aus dem Internet in einem Excel-Arbeitsblatt zu verwenden, besteht darin, sie von einer Webseite zu kopieren und dann in das Arbeitsblatt einzufügen. Sie können beispielsweise eine Datentabelle auf einer Webseite auswählen, Strg + C drücken, um sie in die Zwischenablage zu kopieren, eine Zelle in Excel auswählen und dann Strg + V drücken. Excel bemüht sich, die Daten zu analysieren und in die richtigen Zellen zu stellen, genau wie in der Originaltabelle.

Das Problem ist, dass Sie häufig mehr als nur die Tabellendaten erhalten. Wenn die aus dem Web kopierten Daten andere Objekte enthalten, werden diese Objekte ebenfalls in das Arbeitsblatt eingefügt. Es ist nicht ungewöhnlich, dass das Arbeitsblatt alle möglichen kleinen Grafiken enthält. Wenn diese Grafiken ursprünglich Hyperlinks waren, möchten Sie möglicherweise den Hyperlink extrahieren und dann die Grafik löschen. Dies würde die Daten im Arbeitsblatt viel benutzerfreundlicher machen.

Der Weg dazu ist mit einem Makro. Führen Sie das folgende Makro aus, nachdem Sie die Webinformationen in das Arbeitsblatt eingefügt haben.

Sub ConvertHLShapes()

Dim shp As Shape     Dim sTemp As String

For Each shp In ActiveSheet.Shapes         sTemp = ""

On Error Resume Next 'go to next shape if no hyperlink         sTemp = shp.Hyperlink.Address         On Error GoTo 0         If sTemp <> "" Then             shp.TopLeftCell.Value = sTemp             shp.Delete         End If     Next End Sub

Dieses Makro durchläuft jede der Formen im Arbeitsblatt. Anschließend wird überprüft, ob der Form ein Hyperlink zugeordnet ist. Wenn dies der Fall ist, wird die Adresse dieses Hyperlinks (in der sTemp-Variablen) in die Zelle in der oberen linken Ecke der Position der Form eingefügt. Das Makro löscht alle Formen mit Hyperlinks. Sie können erzwingen, dass alle Formen im Arbeitsblatt gelöscht werden, indem Sie einfach die Zeile shp.Delete an die Außenseite der If …​ End If-Struktur verschieben.

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

URLs aus verlinkten Bildern extrahieren.