Wie schaffe ich es das statt den cells immer eine range definiert wird also dass statt zB: Cells (3, 3) steht gd
Sub Start()
'Variablen zum Berechnen
Dim gd As Double
Dim rsi As Double
Dim sumup As Double
Dim sumdown As Double
Dim avgup As Double
Dim avgdown As Double
Dim x As Integer
Dim y As Integer
Dim c As Range
'Berechnen des gleitenden Durchschnitts und Eintragen in die Tabelle DATEN
If Sheets("MAIN").Cells(3, 3) < 1 Then
MsgBox ("Zahl für den Gleitenden Durchschnitt muss größer als 0 sein!")
Sheets("MAIN").Cells(3, 3).Select
Exit Sub
Else
For x = 2 To (2 + Sheets("MAIN").Cells(2, 3))
gd = 0
For y = 1 To Sheets("MAIN").Cells(3, 3)
gd = gd + Sheets("DATEN").Cells(x + y, 7)
Next y
gd = gd / Sheets("MAIN").Cells(3, 3)
Sheets("DATEN").Cells(x, 9) = gd
Next x
End If
|