Attribute VB_Name = "Modul1"
'entwickelt von Winfried Radner
'e-mail: Wolf.W.Radzinski@gmx.de
'Benutzung frei - ohne Gewähr

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub lz_upn_bu_install()
   addin_install "lz_upn_bu"
End Sub


Sub addin_install(AddinTitle As String)
Dim wh As Window
Set wh = ActiveWindow
AddinName = AddinTitle & ".xla"
gefunden = False
For i = 1 To AddIns.Count
    If AddIns.Item(i).Name = AddinName Then
        gefunden = True
        Exit For
        End If
    Next
If Not gefunden Then
   MsgBox "Bitte " & AddinName & " suchen und als AddIn installieren!"
   Exit Sub
   End If
If AddIns(AddinTitle).Installed = False Then
   AddIns(AddinTitle).Installed = True
   End If
neuer_pfad = AddIns(AddinTitle).Path
wh.Activate
'MsgBox ActiveWindow.Caption
ChangeLinks neuer_pfad, AddinTitle
End Sub


Sub ChangeLinks(ByVal new_path As String, search_for As String)
    Dim varLink As Variant
    Dim intCounter As Integer
    Dim intPos As Integer
    Dim local_new_path As String
    varLink = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(varLink) Then
        For intCounter = 1 To UBound(varLink)
               intPos = InStr(1, varLink(intCounter), search_for)
               If intPos > 0 Then
                    local_new_path = new_path & "\" & Right$(varLink(intCounter), Len(varLink(intCounter)) - intPos + 1)
                    ActiveWorkbook.ChangeLink Name:=varLink(intCounter), newname:=local_new_path, Type:=xlExcelLinks
                    End If
        Next intCounter
    End If
End Sub