Thema: Umsatzaufteilung nach Lieferanten

StandardModule: basMain

Sub LinkUmleitung()
   Dim var As Variant
   Dim iCounter As Integer
   Dim sPath As String, sExt As String, sName As String
   sPath = "c:\excel\"
   sExt = ".xls"
   sName = InputBox("Quellarbeitsmappe:")
   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

Beiträge aus dem Excel-Forum zu den Themen Funktion und SUMMEWENN