Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Prüfen ob Hyperlink vorhanden

Prüfen ob Hyperlink vorhanden
Pepi
Hallo zusammen
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
if [A5].Hyperlinks.Count > 0 Then...'_oT
15.08.2011 17:16:44
NoNet
_oT = "ohne Text"
Exceltreffen 28.-30.10.2011 in Chemnitz
Ein Treffen für alle Excel-Freunde und Besucher deutschsprachiger Excel-Foren.
Alle Infos - Programm - Anmeldung - Teilnehmerliste etc. gibt es auf
http://www.exceltreffen.de/index.php?page=211
Wir freuen uns auf euch...

Anzeige
AW: Prüfen ob Hyperlink vorhanden
15.08.2011 17:17:12
Josef

Hallo Pepi,

Sub pepi()
  With Range("A5").Hyperlinks
    If .Count Then
      MsgBox .Item(1).TextToDisplay
    End If
  End With
End Sub



« Gruß Sepp »

Anzeige
AW: Prüfen ob Hyperlink vorhanden
15.08.2011 18:16:51
Pepi
Hallo Sepp und Nonet
Warum auch in die Ferne schweifen - es gibt manchmal so einfache Lösungen, dass sie schwierig zu finden sind
vielen Dank und alles Gute
Pepi
;
Anzeige
Anzeige

Infobox / Tutorial

Hyperlink in Excel prüfen


Schritt-für-Schritt-Anleitung

Um zu prüfen, ob in einer bestimmten Zelle, beispielsweise "A5", ein Hyperlink vorhanden ist, kannst Du folgenden VBA-Code verwenden:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Erstelle ein neues Modul, indem Du mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" klickst und "Einfügen" > "Modul" auswählst.

  3. 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
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Du kannst das Makro über ALT + F8 ausführen und pruefenHyperlink auswählen.


Häufige Fehler und Lösungen

  • Fehler: "Index außerhalb des gültigen Bereichs"

    • Dieser Fehler tritt auf, wenn Du versuchst, auf einen Hyperlink zuzugreifen, der nicht vorhanden ist. Stelle sicher, dass Du die .Count-Eigenschaft verwendest, um zu prüfen, ob Hyperlinks existieren, bevor Du auf sie zugreifst.
  • Lösung: Verwende die richtige Bedingung

    • Achte darauf, dass Du die Bedingung If .Count > 0 Then korrekt implementierst, um sicherzustellen, dass Du nur auf vorhandene Hyperlinks zugreifst.

Alternative Methoden

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:

  1. Wähle eine andere Zelle aus, zum Beispiel "B5".
  2. 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.


Praktische Beispiele

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."


Tipps für Profis

  • Hyperlinks dynamisch verwalten: Wenn Du regelmäßig Hyperlinks in Deiner Excel-Datei verwaltest, kannst Du das Makro erweitern, um eine Liste aller Hyperlinks in einem bestimmten Bereich zu erstellen.
  • Fehlerprotokollierung: Füge eine Fehlerprotokollierung in Dein Makro ein, um besser nachverfolgen zu können, wo Fehler auftreten.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige