Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Hyperlinks umadressieren

Gruppe

Hyperlink

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