VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Verlauf prognostizieren (über Funktion SCHÄTZER)

Gruppe

Funktion

Bereich

SCHÄTZER

Thema

Verlauf prognostizieren (über Funktion SCHÄTZER)

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.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und SCHÄTZER