Prognose
02.01.2019 16:21:41
SKÄY
ich möchte eine Prognose für ein Beispiel einer Kino-Snackbar für die jeweiligen Produkte wie z. B. Popcorn, Nachos, Eis usw. erstellen.
Für die Calc TrEnd Function habe ich bereits im Forum folgender hilfreicher Beitrag gefunden:
https://www.herber.de/forum/archiv/936to940/939819_Trendsfunktion_in_VBA_lineare_Regression.html
Folgender Code habe ich nun erstellt:
' Prognose Snackbar
Sub CalcNewTrendValue()
Dim newValue As Double
newValue = CalcTrend(Range("$C4:$C9"), Range("$B10:$B16"))
End Sub</pre>
<pre>Public Function CalcTrend(ByRef DataR As Range, newX As Range) As Double
Dim maxData As Double, ws As Worksheet
Dim XR As Range
Set ws = Worksheets("mit Formel")
maxData = DataR.Count
Set XR = ws.Range(Replace(DataR.Address, "$C", "$B"))
CalcTrend = Application.WorksheetFunction.Trend(DataR, XR, newX)(1)
End Function</pre>
Problem ist, dass für jeden Tag in der Zukunft (B10:B16) immer negative Werte für die Prognose berechnet werden. Jedoch müssten die Werte positiv sein.
Findet jemand meinen Denkfehler?
https://www.herber.de/bbs/user/126436.xlsm
Danke und Grüße