HERBERS Excel-Forum - die Beispiele

Thema: Hyperlinks umadressieren

Home

Gruppe

Allgemein

Problem

Die Hyperlinks in Spalte F sollen auf Schaltflächenklick umadressiert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub ChangeHypes()
   Dim iRow As Integer, iRowL As Integer, iChar As Integer
   Dim sFile As String
   iRowL = Cells(Rows.Count, 6).End(xlUp).Row
   For iRow = 1 To iRowL
      sFile = Cells(iRow, 6).Hyperlinks(1).Address
      For iChar = Len(sFile) To 1 Step -1
         If Mid(sFile, iChar, 1) = "/" Then Exit For
      Next iChar
      sFile = Right(sFile, Len(sFile) - iChar)
      Cells(iRow, 6).Hyperlinks(1).Address = "c:\test\" & sFile
   Next iRow
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