Problem mit folgendem Makro (Anpassung)
08.01.2004 11:26:59
Martin
Die Arbeitsmappen (sagen wir A und die Datenbank B, beides geschützte Excel-Mappen) werden auf unterschiedlichen PC und in unterschiedlichen Verzeichnissen als Vorlage *.xlt abgespeichert. Die Arbeitsmappe A wird vom Benutzer ausgefüllt und verändert, während dem die Arbeitsmappe B als Datenbank unverändert bestehen bleibt. Die unterschiedlichen Benutzer sollten nun die Arbeitsmappe A (sämtliche Blätter sind geschützt)an mich zurücksenden. Beim mir sollten nun die Verknüpfungen der Arbeitsmappe A automatisch auf meine Datenbank B (am Speicherort X) aktualisiert werden, so dass ich nicht jedesmal bei sämtlichen Blättern den Blattschutz aufheben muss, um anschliessend über Bearbeiten, Verknüpfungen diese auf meine Datenbank (B) zu verweisen und anschliessend wieder sämtliche Blätter (ca. 20) wieder schützen muss.
Habe ich dieses Makro gefunden, aber ich kann dies nicht effektiv auf mein obengenanntes Problem umwandeln!!
Sub LinkUmleitung()
Dim var As Variant
Dim iCounter As Integer
Dim sName As String, sPath As String, sExt As String
sPath = ThisWorkbook.Path & "c:\"
sExt = ".xls"
sName = InputBox( _
prompt:="Quellarbeitsmappe:", _
Default:="test2")
If sName = "" Then Exit Sub
sName = sPath & sName & sExt
var = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(var) Then
For iCounter = 1 To UBound(var)
ActiveWorkbook.ChangeLink _
Name:=var(iCounter), newname:=sName
Next iCounter
End If
End Sub
Denn gemäss diesem Makro ergibt es eine Zusammensetzung des path aus dem "Test.2" und dem aktuellen Speicherort der Arbeitsmappe.
Aber ich möchte ja nur die bestehenden Links umverknüpfen auf die Datenbank namens (AW.xls), welche irgendwo auf den unterschiedlichen Arbeitsplätzen abgespeichert wurde.
Kann mir jemand helfen???
Danke im voraus für eure hilfe.
gruss
Martin