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

Forumthread: VBA: String aus Hyperlink auslesen

VBA: String aus Hyperlink auslesen
10.08.2004 16:19:01
Marcel
Hallo Wissende,
wie kann man denn den Wert eines Hyperlinks in einer Zelle per VBA auslesen ?
Das wars schon.
Danke !
Marcel
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: String aus Hyperlink auslesen
Andreas
Wenn die Zelle mit dem Hyperlink B4 ist, dann
MSGBOX Range("B4").Hyperlinks(1).Address
bzw.
[B2].Value=Range("B4").Hyperlinks(1).Address
um es in B2 zu schreiben
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Hyperlink-Werte in Excel mit VBA auslesen


Schritt-für-Schritt-Anleitung

Um den Wert eines Hyperlinks in einer Zelle mit Excel VBA auszulesen, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Einfügen eines neuen Moduls: Klicke im Menü auf Einfügen und wähle Modul.

  3. Füge den folgenden Code ein:

    Sub HyperlinkAuslesen()
       Dim hyperlinkWert As String
       hyperlinkWert = Range("B4").Hyperlinks(1).Address
       MsgBox hyperlinkWert  ' Zeigt den Hyperlink in einer MessageBox an
    End Sub
  4. Ausführen des Codes: Schließe den VBA-Editor und führe das Makro über Entwicklertools > Makros aus.

  5. Hyperlink in eine andere Zelle schreiben: Um den Hyperlink in eine andere Zelle, z.B. B2, zu schreiben, ändere die Zeile im Code zu:

    Range("B2").Value = Range("B4").Hyperlinks(1).Address

Häufige Fehler und Lösungen

  • Fehler: "Kein Hyperlink in der Zelle"
    Lösung: Stelle sicher, dass die Zelle tatsächlich einen Hyperlink enthält. Überprüfe die Zelle auf einen aktiven Hyperlink.

  • Fehler: "Index außerhalb des gültigen Bereichs"
    Lösung: Dieser Fehler tritt auf, wenn die Zelle keinen Hyperlink hat. Stelle sicher, dass du auf einen Hyperlink zugreifst, indem du vorher überprüfst, ob es Hyperlinks gibt:

    If Range("B4").Hyperlinks.Count > 0 Then
       ' Dein Code hier
    End If

Alternative Methoden

Eine alternative Methode, um Hyperlinks auszulesen, besteht darin, die Funktion Cells zu verwenden. Diese Methode ist besonders nützlich, wenn du mit einer dynamischen Zellreferenz arbeitest:

Sub HyperlinkAuslesenAlternativ()
    Dim hyperlinkWert As String
    hyperlinkWert = Cells(4, 2).Hyperlinks(1).Address  ' Zelle B4
    MsgBox hyperlinkWert
End Sub

Praktische Beispiele

  1. Hyperlink als Text anzeigen: Um den Hyperlink als Text in einer Zelle anzuzeigen, kannst du das folgende Beispiel verwenden:

    Sub HyperlinkAlsTextAnzeigen()
       Dim hyperlinkText As String
       hyperlinkText = Range("B4").Text
       Range("B2").Value = hyperlinkText  ' Zeigt den Text des Hyperlinks in B2 an
    End Sub
  2. Alle Hyperlinks in einem Bereich auslesen: Wenn du mehrere Hyperlinks in einem Bereich auslesen willst, kannst du dies wie folgt tun:

    Sub AlleHyperlinksAuslesen()
       Dim cell As Range
       Dim output As String
    
       For Each cell In Range("B4:B10")  ' Beispielbereich
           If cell.Hyperlinks.Count > 0 Then
               output = output & cell.Hyperlinks(1).Address & vbNewLine
           End If
       Next cell
    
       MsgBox output  ' Zeigt alle Hyperlinks an
    End Sub

Tipps für Profis

  • Verwende Error Handling: Implementiere On Error Resume Next, um Fehler beim Auslesen von Hyperlinks zu vermeiden.

  • Lege benutzerdefinierte Funktionen an: Du kannst benutzerdefinierte Funktionen erstellen, um Hyperlinks aus Zellen bequem auszulesen und an anderen Stellen zu verwenden.

  • Dokumentiere den Code: Kommentiere deinen VBA-Code, um die Verständlichkeit zu erhöhen, insbesondere wenn du komplexe Hyperlink-Operationen durchführst.


FAQ: Häufige Fragen

1. Wie kann ich einen Hyperlink aus einer Zelle in eine andere Zelle schreiben?
Du kannst den Hyperlink mit der folgenden Zeile in eine andere Zelle schreiben:

Range("B2").Value = Range("B4").Hyperlinks(1).Address

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code sollte in den meisten modernen Excel-Versionen (Excel 2010 und später) funktionieren, solange die Hyperlinks in den Zellen vorhanden sind.

3. Was kann ich tun, wenn der Hyperlink nicht angezeigt wird?
Überprüfe, ob der Hyperlink tatsächlich in der Zelle vorhanden ist. Verwende die .Text-Eigenschaft, um den Text des Hyperlinks anzuzeigen.

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