Office: Makros erzeugen

Hallo

ich wollte mal wissen, ob es einen Weg gibt folgendes Problem mit einem Makro zu lösen.

Ich habe 18 Dateien a 52 Blättern. Jahrespläne.
Auf jedem Blatt sind mehrere Hyperlinks auf andere Dateien angelegt.

Nun muss ich diese Hyperlinks ändern, z.b.

...........\[Wochenplan 65210.xls]KW29'!$G$28

nun müsste der Eintrag folgendermassen geändert werden.

...........\[Wochenplan 65240.xls]KW29'!$G$28

geht dies mit einem Makro, admit ich nicht alle 130.000 Hyperlinks per Hand ändern muss.

DANKE für eure Hilfe!!!

 

Hi,

Code:

Sub hyperlink_inhalte_ersetzen()
    Dim hyAdresse As Hyperlink
    Dim strAdresse As String
    With ActiveSheet.UsedRange
        For Each hyAdresse In .Hyperlinks
            ' die folgende Zelle ist nur erforderlich, wenn Anzeigetext mit Adresse übereinstimmt
            ' hyAdresse.TextToDisplay = Replace(hyAdresse.Parent.Formula, "65210", "65240")
            hyAdresse.Address = Replace(hyAdresse.Parent.Formula, "65210", "65240")
        Next hyAdresse
    End With
End Sub

Bis später,
Karin