Hyperlinks teilweise umbenennen

[Karthagos]

Hi, ich habe eine Excel-Datei mit vielen Registerblättern.
In jedem Registerblatt ist eine Hyperlink auf den entsprechenden Ordner mit den Dateiinhalten.
Jetzt habe ich alle Ordner, die bisher in Laufwerk S und Laufwerk T vorhanden waren, in Laufwerk T zusammengeführt.
Der Hyerlink müsste dementsprechend, wo notwendig, von S:\ in T:\geädert werden also z.B. S:\Auckland Detectices in T:/Auckland Detectives 
also ohne den jeweils anhängenden Dateinamen zu verändern.
Kann mir da jemand mit einem Makro helfen, da es sich um eine beträchtliche Anzahl von Einträgen handelt?

[slowboarder]

Hi
Wie gut kennst du dich mit Makros aus?
Können solche Änderungen häufiger vorkommen?

Prinzipiell würde ich dir Raten, die Hyperlinks mit der Zellfunktion HYPERLINK zu erstellen, nicht über das Menü
Dann kannst du die Linkadresse aus Zellbezügen zusammenstellen und dann musst du für solche Änderungen nur eine Zelle ändern oder du kannst die ERSETZEN- Funktion dafür verwenden

Ansonsten vieleicht so (ist nur hingeschrieben und nicht getestet)

Code:

Sub Links ändern()
Dim sh as Worksheet
dim C as Range
For each sh in ActiveWorkbook.Worksheets
    Application.Statusbar = "in Arbeit: " & Sh.Name
    For each C in sh.Usedrange.Cells
        If C.Hyperlinks.Count > 0 then
             C.Hyperlinks(1).Address = Replace(C.Hyperlinks(1).Address, "S:\", "T:\")
         End if
    Next
Next
Application.Statusbar = False
End Sub

Gruß Daniel

[snb]

ändere 'Hyperlinkbase'

[Karthagos]

@slowboarder - Hallo Daniel, vielen Dank für das Makro, funktioniert einwandfrei

@snb - sorry, mit dem Hinweis 'ändere Hyperlinkbase' konnte ich mangels Wissen leider nichts anfangen

b.t.w. trotz Aktivierung der Funktion "Abonnieren und eine E-Mail-Benachrichtigung bei neuen Antworten erhalten"
         erhalte ich keine Benachrichtigungen, ist das ein Forum-Problem oder muss man noch etwas zusätzlich einstellen