Gruppe
Funktion
Problem
In B2:B12 befinden sich die jeweiligen Auftragseingänge des Vorjahres, in C2:C10 die des aktuellen Jahres. Aufgrund der Monatsverteilung aus Spalte B soll für die restlichen Monate des laufenden Jahres (C11:C13) eine Prognose erstellt werden.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim iCol As Integer
Dim sPath As String, sFormula As String
Set wks = Worksheets("Tabelle1")
sPath = "='" & ThisWorkbook.Path & "\"
For iCol = 1 To 3
sFormula = sPath & "[" & wks.Cells(1, iCol).Value & "]"
sFormula = sFormula & wks.Cells(2, iCol).Value & "'!A1"
wks.Cells(3, iCol).Formula = sFormula
sFormula = ""
Next iCol
End Sub