Verknüpfungen von xlsx in xlsm ändern mit VBA
31.03.2013 23:35:37
xlsx
ich habe in der Mappe1.xlsm zahlreiche Verknüpfungen zu verschiedenen anderen Excel-Dateien, die auf ".xlsx" enden. Nun werden diese (anderen) Exceldateien umgestellt auf ".xlsm". Die ursprünglichen Pfade ändern sich dabei nicht.
Wie kann ich am besten diese Anpassung vornehmen bzw. ließe sich das nachstehende Makro (von Bernd Held) so abändern, dass nur die Endungen (xlsm statt xlsx) in den Verknüpfungen ersetzt werden?
Für einen Tipp wäre ich dankbar.
Grüße, Constantin
Sub VerknüpfungenÄndern()
Dim Mappe As Workbook
Dim Vlink As Variant
Dim intz As Integer
Dim e As Integer
Dim s As String
Set Mappe = ThisWorkbook
Vlink = Mappe.LinkSources(xlExcelLinks)
If Not IsEmpty(Vlink) Then
Application.DisplayAlerts = False
For intz = 1 To UBound(Vlink)
e = InStrRev(Vlink(intz), "\") + 1
s = Mid(Vlink(intz), e, 20)
ThisWorkbook.ChangeLink Vlink(intz), _
"C:\Daten\" & s.xlExcelLinks
Next intz
Application.DisplayAlerts = True
End If
End Sub
Anzeige