|
Kann mir jemand erklären warum Sum Up und Sum Down nicht in mein Daten Blatt einegtragen wir ?
Der Code weißt bei mir keine Fehler auf, habe ich was vergessen ?
If Sheets("BERECHNUNG").Cells(4, 3) < 1 Then
MsgBox ("Zahl für den RSI muss größer als 0 sein!")
Exit Sub
Else
'Addieren aller Ups aus Tabelle DATEN für RSI
'2 Weil Daten in Zeile 2 beginnen
For x = 2 To 2 + Sheets("BERECHNUNG").Cells(4, 3)
'Was soll sumup sein ?
'10 weil Spalte J
sumup = sumup + Sheets("DATEN").Cells(x, 10)
Next x
'Addieren aller Downs aus Tabelle DATEN für RSI
For x = 2 To 2 + Sheets("BERECHNUNG").Cells(4, 3)
'11 weil Spalte K
sumdown = sumdown - Sheets("DATEN").Cells(x, 11)
Next x
'Berechnen der AVG Up and Downs
'avg up = sum up / n
'avg down = sum down / n
'Sheets("BERECHNUNG").Cells(4, 3) ist mein n
avgup = sumup / Sheets("BERECHNUNG").Cells(4, 3)
avgdown = sumdown / Sheets("BERECHNUNG").Cells(4, 3)
'Berechnen und eintragen von RSI
'RSI = avg UP / avg UP + avg Down
End If
End Sub
|