VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Umrechnung von Monats- in Jahreswerte

Gruppe

Funktion

Bereich

DatumUndZeit

Thema

Umrechnung von Monats- in Jahreswerte

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.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




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 DatumUndZeit