Algorithmus in Excel VBA
Michel
hab ein dringendes Problem.
Habe einen Algorithmus den ich in Excel VBA realisieren soll. Der Code sieht folgendermaßen aus.
Private Sub Swingingdoor()
Dim x As Long
Dim eps As Long
Dim y(100) As Long, i As Long, j As Long
Dim t(100) As Long
Dim stg As Long
Dim delta As Long
x = Range("G12").Value
eps = "2"
i = i + 1
For i = 1 To 100
For j = 1 To 100
If j eps Then
j = j + 1
y(j) = x
t(j) = Time()
i = 0
Else
y(j + 1) = x
End If
End If
Next j
Next i
Range("I15").Value = y(0)
Range("I16").Value = y(1)
Range("I17").Value = y(20)
End Sub
Der Wert x der oben angegeben ist unter Range("G12").Value ist ein Wert der sich in dieser Zelle kontinuierlich von 0 auf 50 und wieder auf 0 ändert. Diese Werte möchte ich anhand dieses Algorithmus verdünnen und mir in die Arrays speichern. Leider passiert da garnix.
Kann mir jemand helfen? Muss ich mit altwert neuwert oder so was arbeiten?
Oder mit Worksheet Change oder so?
Bin für jeden Tipp dankbar.
Grüße michel