Gruppe
Funktion
Problem
Die Formeln in Spalte C sollen die Monatswerte aus Spalte B in Jahreswerte umrechnen, wobei das Jahr aus F1 unter Berücksichtigung der Schaltjahre zugrundegelegt werden soll.
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