Gruppe
Allgemein
Problem
Die Hyperlinks in Spalte F sollen auf Schaltflächenklick umadressiert werden.
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