Thema: Hyperlinks setzen, wenn Zieldatei gefunden wurde

Download Beispiel-Arbeitsmappe

Home

Gruppe

Allgemein

Problem

In den ausgewählten Zellen werden, wenn die Zieladresse gefunden wurde, Hyperlinks zu Zieladresse gesetzt.

Lösung

Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub SetHyperlinks()
   Dim rng As Range
   For Each rng In Selection.Cells
      If Not IsEmpty(rng) Then
         If Dir(rng.Value) <> "" Then
            rng.Hyperlinks.Add _
               anchor:=rng, _
               Address:=rng.Value
         End If
      End If
   Next rng
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Hyperlink

Hyperlink per Code aktivieren, gibt Fehlerhinweis	xlDialogInsertHyperlink.show
Hyperlinks in Excel	Hyperlink auf Excel-Datei funktioniert nicht
Hyperlinks automatisch starten	Hyperlink zu Wordtabelle mit Textmarke
Hyperlink variabel	Hyperlink - UserForm
Hyperlink öffnet Arbeitsmappe mit Parametern	Hyperlinks finden
Hyperlink zurückwandeln?	Hyperlink zurückwandeln?
Hyperlink zurückwandeln?	Hyperlink
Hyperlink als Button	Hyperlink öffnen - URL in Zelle
Hyperlink ... Verkürzung der Verzeichnisauswahl	Hyperlinks - Standardordner ändern
Hyperlink	Hyperlink
Hyperlinks	Hyperlink
Prüfen ob Hyperlink	Allgemeine Frage zur Fehlerbehandlung
Hyperlink und nachträglich Zeilen einfügen	allgemeine Fragen zu einer Datenbank
ComboBox mit Hyperlink	ListBox1_DblClick Hyperlink öffnen
Hyperlink mit Abfrage hinzufügen	Hyperlink als Text
Hyperlink entfernen und Zelle einfärben ?	Dateinamen auslesen - aber nicht Hyperlink
Bilder mit Hyperlink	Excel: Bei Schutz Gruppierung/Hyperlink/Sortierung
Hyperlink auf Bereich in Arbeitsblatt	Hyperlinks per VBA - Dokument defekt?
Hyperlink - Datei wird ausgeblendet	Hyperlink verwirrung
Hyperlink nicht starr (absolut)	Hyperlink
Hyperlinks innerhab einer Mappe (kein Dateipfad)	Hyperlink von Excel zu Word
Hyperlink-Probleme	Hyperlink
per Makro Hyperlink generieren	Hyperlink auf anderes Tabellenblatt mit VBScript
Hyperlink von Zelle auf anderes Tabellenblatt	hyperlink als email mit betreff und cc aus spalte
Hyperlink via WENN-Fkt aktivieren