Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Wird ausgeführt, nachdem Hyperlink geöffnet wurde
MsgBox "Hyperlink-Zelle mit Hyperlink"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Prüfen, ob eine Zelle im Zellbereich mit den Hyperlink-Formeln selektiert wurde
'Hier Spalte B ab Zeile 3
If Target.Column = 2 And Target.Row >= 3 Then
If Target.Cells.Count = 1 And Target.HasFormula _
And InStr(1, Target.Formula, "HYPERLINK") > 0 Then
'Wird ausgeführt nachdem Formelhyperlink geöffnet wurde
MsgBox "Zellselektion-Zelle mit Formel-Hyperlink"
End If
End If
End Sub
Hyperlink erstellen: Um einen Hyperlink in Excel zu erstellen, kannst du die Funktion =HYPERLINK("URL", "Linktext") verwenden. Dies fügt einen klickbaren Link in die Zelle ein.
Ereignis hinzufügen: Um auf das Ereignis followhyperlink zu reagieren, kannst du im VBA-Editor (Alt + F11) den folgenden Code einfügen:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
MsgBox "Hyperlink-Zelle mit Hyperlink"
End SubZellenänderung überwachen: Da das followhyperlink-Ereignis nicht auf Hyperlinks reagiert, die mit =HYPERLINK() erstellt wurden, musst du das SelectionChange-Ereignis verwenden:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row >= 3 Then
If Target.Cells.Count = 1 And Target.HasFormula _
And InStr(1, Target.Formula, "HYPERLINK") > 0 Then
MsgBox "Zellselektion-Zelle mit Formel-Hyperlink"
End If
End If
End SubCode testen: Gehe zurück zu Excel, klicke auf eine Zelle mit einem Hyperlink, um die Funktionalität zu testen. Du solltest eine Nachricht sehen, die bestätigt, dass die Zelle mit einem Hyperlink ausgewählt wurde.
Fehler: Ereignis wird nicht ausgelöst: Wenn das followhyperlink-Ereignis nicht reagiert, kann dies daran liegen, dass die Hyperlinks mit =HYPERLINK() erstellt wurden. Verwende stattdessen das SelectionChange-Ereignis, um die Auswahl zu verfolgen.
Lösung: Überprüfe die Spalte und Zeilen: Stelle sicher, dass deine Bedingungen im SelectionChange-Ereignis korrekt sind und dass du die richtige Spalte und Zeilen überprüfst.
Eine alternative Methode zur Verwendung von Hyperlinks in VBA ist die Verwendung von ActiveSheet.Hyperlinks.Add. Hier ist ein Beispiel:
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.example.com", TextToDisplay:="Beispiel"Diese Methode erstellt einen Hyperlink und kann direkt auf das followhyperlink-Ereignis reagieren.
Erstellen eines Hyperlinks mit VBA:
Sub CreateHyperlink()
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="http://www.example.com", TextToDisplay:="Beispiel"
End SubVerwendung von thisworkbook.followhyperlink:
Private Sub CommandButton1_Click()
ThisWorkbook.FollowHyperlink "http://www.example.com"
End Subthisworkbook.followhyperlink-Methode, um Hyperlinks programmgesteuert zu öffnen, ohne dass der Benutzer klicken muss.HYPERLINK() und VBA, um die Benutzererfahrung zu verbessern und interaktive Dashboards zu erstellen.1. Warum reagiert mein followhyperlink-Ereignis nicht?
Das followhyperlink-Ereignis wird nur für Hyperlinks ausgelöst, die direkt in Excel eingefügt wurden, nicht für die, die mit der =HYPERLINK()-Funktion erstellt wurden.
2. Wie kann ich mehrere Hyperlinks in einer Zelle erstellen?
In einer Zelle kannst du nur einen Hyperlink mit der HYPERLINK()-Funktion erstellen. Du kannst jedoch mehrere Zellen mit Hyperlinks füllen oder einen benutzerdefinierten Dialog erstellen, um zwischen Links zu navigieren.
3. Funktioniert dieses Tutorial in allen Excel-Versionen?
Die vorgestellten Methoden sind in Excel 2010 und späteren Versionen anwendbar.
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