Hyperlinks auf Bilder auslesen

Forumthread: Hyperlinks auf Bilder auslesen

Uwe

Hallo,
folgendes Problem: durch Kopieren einer HTML Seite (genauer gesagt, eines
table Abschnittes) in Excel, ist eine Liste mit Bildern entstanden, die mit einem
Hyperlink verknüpft sind. Nun benötige ich die Hyperlinks als Text.
Grüße
U.Wagner

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

Bilder-Hyperlinks anzeigen

NoNet

Bilder-Hyperlinks anzeigen

22.06.2010 12:02:21

NoNet

Hallo Uwe,
hier ein Makro, das die Adresse des Bildes in Spalte J, den Bildnamen in Spalte K und den Hyperlink des Bildes in Spalte L ausgibt :

Sub BilderHyperlinksAnzeigen()
Dim lngT As Long, objBild As Shape, hyp As Hyperlink
On Error Resume Next
For Each objBild In ActiveSheet.Shapes
Set hyp = Nothing
Set hyp = objBild.Hyperlink
If Not hyp Is Nothing Then
lngT = lngT + 1
'Adresse der linken oberen Ecke des Bildes in Spalte J anzeigen :
Cells(lngT, 10) = objBild.TopLeftCell.Address
'Bildname in Spalte K anzeigen :
Cells(lngT, 11) = objBild.Name
'Hyperlink des Bildes in Spalte L anzeigen :
Cells(lngT, 12) = objBild.Hyperlink.Address
End If
Next
End Sub

Gruß, NoNet

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Hyperlinks auf Bilder in Excel auszulesen, kannst Du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

Excel öffnen und das Arbeitsblatt auswählen, das die Bilder enthält.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Wähle im Menü Einfügen die Option Modul, um ein neues Modul zu erstellen.

Kopiere folgenden Code in das Modul:

Sub BilderHyperlinksAnzeigen()
    Dim lngT As Long, objBild As Shape, hyp As Hyperlink
    On Error Resume Next
    For Each objBild In ActiveSheet.Shapes
        Set hyp = Nothing
        Set hyp = objBild.Hyperlink
        If Not hyp Is Nothing Then
            lngT = lngT + 1
            'Adresse der linken oberen Ecke des Bildes in Spalte J anzeigen :
            Cells(lngT, 10) = objBild.TopLeftCell.Address
            'Bildname in Spalte K anzeigen :
            Cells(lngT, 11) = objBild.Name
            'Hyperlink des Bildes in Spalte L anzeigen :
            Cells(lngT, 12) = objBild.Hyperlink.Address
        End If
    Next
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle das Makro BilderHyperlinksAnzeigen aus und klicke auf Ausführen.

Das Makro zeigt nun die Hyperlinks der Bilder in den entsprechenden Spalten an.

Häufige Fehler und Lösungen

Fehler: "Objekt nicht gefunden"
- Lösung: Stelle sicher, dass Du das richtige Arbeitsblatt ausgewählt hast, in dem die Bilder enthalten sind.
Problem: Hyperlinks werden nicht angezeigt
- Lösung: Überprüfe, ob die Bilder tatsächlich Hyperlinks haben. Manchmal sind die Bilder nicht korrekt verknüpft.

Alternative Methoden

Wenn Du keine VBA-Makros verwenden möchtest, kannst Du auch die Funktion "Link einfügen" nutzen, um manuell die Hyperlinks zu erstellen. Du kannst den Hyperlink direkt in eine Zelle einfügen, indem Du mit der rechten Maustaste auf die Zelle klickst und "Hyperlink" auswählst.

Praktische Beispiele

Beispiel 1: Wenn Du mehrere Bilder hast, die auf verschiedene Webseiten verlinken, kannst Du mit dem oben genannten Makro alle Hyperlinks gleichzeitig auslesen und in einer Tabelle anzeigen.
Beispiel 2: Um ein Bild in eine URL umzuwandeln, klicke mit der rechten Maustaste auf das Bild, wähle „Link bearbeiten“ und füge die gewünschte URL ein.

Tipps für Profis

Verwende die Funktion =HYPERLINK() in Excel, um Hyperlinks dynamisch zu erstellen.
Nutze die Datenüberprüfung, um sicherzustellen, dass die eingegebenen URLs korrekt sind, bevor Du sie in Hyperlinks umwandelst.

FAQ: Häufige Fragen

1. Wie kann ich die Hyperlinks auf Bilder in eine separate Liste exportieren?
Du kannst das Makro anpassen, um die Hyperlinks in eine neue Arbeitsmappe zu exportieren.

2. Funktioniert dieses Makro in allen Excel-Versionen?
Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren, allerdings ist VBA in Excel Online nicht verfügbar.

Beliebteste Forumthreads (12 Monate)