ich habe folgendes Problem bei der Ausführung eines Makros:
Ich habe in einer Tabelle zwei Verknüpfungen zu verschiedenen Excel-Arbeitsmappen. Eine Verknüpfung soll unverändert bleiben, die andere Verknüpfung soll beim Öffnen der Tabelle automatisch aktualisiert werden. Das Problem dabei ist aber, das der Name der verknüpften Arbeitsmappe sich täglich ändert, weil in ihm das Tagesdatum enthalten sein muss (z.B. Anwesenheitsliste_12.04.2007.xls). Folgendes Makro habe ich geschrieben:
Dim Mappe As Workbook
Dim VLink As Variant
Dim intz As Integer
Dim e As Integer
Dim sFilName
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
sFilName = "Anwesenheitsliste_" & Format(Date, "dd.mm.yyyy") & "_Schicht A.xls"
ThisWorkbook.ChangeLink VLink(intz), _
"D:\Eigene Dateien\" & sFilName, xlExcelLinks
Next intz
Application.DisplayAlerts = True
End If
End Sub
Das Problem ist nun, dass mit diesem Makro auch die Verknüpfungen aktualisiert werden, die unverändert bleiben sollen.
Was muss ich ändern, damit nur die gewünschte Verknüpfung aktualisiert wird?
Vielen Dank für Eure Rückmeldungen
Gruß
Bertel1440