Hyperlink in Bestimmter Spalte ersetzen
04.02.2007 20:55:14
Martin
Dieses Macro habe ich schon gefunden:
Sub Hyperlinks()
Dim rngZelle As Range
Dim strHyper, strHypern As String
For Each rngZelle In ActiveSheet.UsedRange
If rngZelle.Hyperlinks.Count = 1 Then
strHyper = Right(rngZelle.Hyperlinks(1).Address, Len(rngZelle.Hyperlinks(1).Address) - 3)
strHypern = "D:\" & strHyper
rngZelle.Hyperlinks(1).Address = strHypern
End If
Next
End Sub
Nun soll das Macro aber nur auf die Spalte O ausgeführt werden, die anderen Spalten sollen noch nicht ersetzt werden da der Speicherplatz noch nicht umgestellt ist.
Leider schaffe ich es nicht, das Macro auf die Spalte O zu begrenzen.
Danke vorab
Gruss Martin