HERBERS Excel-Forum - die Beispiele

Thema: Hyperlinks setzen, wenn Zieldatei gefunden wurde

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