Wie kann ich prüfen, ob in Zelle "A5" ein Hyperlink vorhanden ist?
MsgBox Range("A5").Hyperlinks(1).TextToDisplay 'gibt den Fehler "Index ausserhalb des gültigen Bereichs"
Danke für Hinweise
Pepi
Sub pepi()
With Range("A5").Hyperlinks
If .Count Then
MsgBox .Item(1).TextToDisplay
End If
End With
End Sub
Um zu prüfen, ob in einer bestimmten Zelle, beispielsweise "A5", ein Hyperlink vorhanden ist, kannst Du folgenden VBA-Code verwenden:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Erstelle ein neues Modul, indem Du mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" klickst und "Einfügen" > "Modul" auswählst.
Füge den folgenden Code in das Modul ein:
Sub pruefenHyperlink()
With Range("A5").Hyperlinks
If .Count > 0 Then
MsgBox .Item(1).TextToDisplay
Else
MsgBox "Kein Hyperlink vorhanden."
End If
End With
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Du kannst das Makro über ALT + F8
ausführen und pruefenHyperlink
auswählen.
Fehler: "Index außerhalb des gültigen Bereichs"
.Count
-Eigenschaft verwendest, um zu prüfen, ob Hyperlinks existieren, bevor Du auf sie zugreifst.Lösung: Verwende die richtige Bedingung
If .Count > 0 Then
korrekt implementierst, um sicherzustellen, dass Du nur auf vorhandene Hyperlinks zugreifst.Wenn Du keine VBA-Kenntnisse hast, kannst Du auch die Formel ISTEXT()
verwenden, um zu prüfen, ob in einer Zelle ein Hyperlink vorhanden ist:
Gebe die folgende Formel ein:
=WENN(ISTEXT(A5); "Hyperlink vorhanden"; "Kein Hyperlink")
Diese Methode ist zwar nicht so präzise wie die VBA-Lösung, kann aber in einfachen Fällen hilfreich sein.
Angenommen, Du hast in Zelle "A5" einen Hyperlink zu einer Website, wie z.B. http://www.example.com
. Wenn Du das oben angegebene Makro ausführst, wird eine Nachricht angezeigt, die den Text des Hyperlinks anzeigt. Wenn kein Hyperlink vorhanden ist, erhältst Du die Nachricht "Kein Hyperlink vorhanden."
1. Wie kann ich alle Hyperlinks in einem Arbeitsblatt auflisten?
Du kannst ein weiteres Makro schreiben, das durch alle Zellen iteriert und die Hyperlinks auflistet. Verwende eine Schleife, um alle Zellen zu durchsuchen.
2. Funktioniert das auch in Excel Online?
Die oben beschriebenen VBA-Methoden funktionieren nicht in Excel Online, da VBA nicht unterstützt wird. Du kannst jedoch alternative Methoden mit Excel-Formeln verwenden.
3. Kann ich Hyperlinks auch in mehreren Zellen gleichzeitig prüfen?
Ja, Du kannst das Makro anpassen, um eine Schleife über einen Bereich zu implementieren und die Hyperlinks in mehreren Zellen zu prüfen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen