Zwei Verknüpfungen aktualisieren
20.03.2008 19:02:00
Schallbach
Jetzt hab ich doch noch ein Problem. Hab ein macro zum ändern der Verknüpfung. Das fuktioniert super bei einer Verknüpfung.
Nun hab ich aber zwei Verknüpfungen in einer Tabelle. Kann mir jemand helfen das Macro für zwei Verknüpfungen umzuschreiben.
Sub VerknüpfungDatenbankabfrage()
Call Initialisierung
Call BlattschutzAus
Dim Lks As Variant
Dim i%
Lks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Lks) Then
For i = 1 To UBound(Lks)
ChDir strLaufwerk & strPfadKundenabrechnung
ActiveWorkbook.ChangeLink Name:=Lks(i), NewName _
:=strLaufwerk & strPfadKundenabrechnung & strNameDatenbank, Type:=xlExcelLinks
Next
End If
Call Blattschutz
Application.AskToUpdateLinks = True
End Sub
Die zweite Verknüpfung lautet:
ChDir strLaufwerk & strPfadKundenordner
ActiveWorkbook.ChangeLink Name:=strLaufwerk & strPfadKundenordner & strNameListe, NewName _
:=strLaufwerk & strPfadKundenordner & strNameListe, Type:=xlExcelLinks
Bitte um Eure Hilfe
Gruss und Dank
Schallbach