Hallo Community,
bezüglich der aktuellen Lage, wollte ich ein Excel erstellen, welches die Steigungsraten ermittelt. Da ich glaube, dass wir in der Pandemie schon weiter fortgeschritten sind, als wir glauben.... Das erkennt man daran, dass die 2te Ableitung bei Ländern die Corona seit kurzem haben stark positiv ist. Bei Ländern wie Deutschland, Frankreich dagegen negativ...
Anbei wollte ich eine eigene Funktion schreiben, die die Verdoppelungsrate errechnet. Dies ist mir auch zuerst gelungen, nur haben sich die Zellen nicht von allein upgedatet, da die Parameter der Funktion sich nicht auf die veränderten Steigungen bezogen haben.
Anbei der Code, der jetzt gar nicht mehr laufen will...
bezüglich der aktuellen Lage, wollte ich ein Excel erstellen, welches die Steigungsraten ermittelt. Da ich glaube, dass wir in der Pandemie schon weiter fortgeschritten sind, als wir glauben.... Das erkennt man daran, dass die 2te Ableitung bei Ländern die Corona seit kurzem haben stark positiv ist. Bei Ländern wie Deutschland, Frankreich dagegen negativ...
Anbei wollte ich eine eigene Funktion schreiben, die die Verdoppelungsrate errechnet. Dies ist mir auch zuerst gelungen, nur haben sich die Zellen nicht von allein upgedatet, da die Parameter der Funktion sich nicht auf die veränderten Steigungen bezogen haben.
Anbei der Code, der jetzt gar nicht mehr laufen will...
Code:
Function VERDOPPELUNG(rng As Range) As Integer
Dim actIncrease As Integer
Dim n As Integer
Dim comparison As Integer
Dim actRow As Integer
Dim actCol As Integer
actRow = ActiveCell.Row
actCol = ActiveCell.Column
actIncrease = Worksheets("Tabelle1").Cells(actRow - 5, actCol).Value
VERDOPPELUNG = 100
n = 0
For Each cell In rng
comparison = cell.Value
If comparison * 2 < actIncrease Then
Worksheets("Tabelle1").Cells(actRow, actCol).Value = n
VERDOPPELUNG = n
n = n + 1
Exit For
End If
Next cell
End Function
