Index aßerhalb des gültigen Bereichs. Array
Michel
habe folgendem Code geschrieben.
Private Sub Swingingdoor()
Dim x As Long
Dim eps As Long
Dim y(100) As Long, i As Integer, j As Integer
Dim t(100) As Long
Dim stg As Long
Dim delta As Long
x = Range("G12").Value
eps = "2"
i = i + 1
If j delta = x - stg * i - y(j)
If Abs(delta) > eps Then
j = j + 1
y(j) = x
t(j) = Time()
i = 0
Else
y(j + 1) = x
End If
End If
Range("I15").Value = y(0)
Range("I16").Value = y(1)
Range("I17").Value = y(20)
End Sub
Ich bekomme bei der fettgedruckten Zeile beim delta immer den Fehler 9 "Index außerhalb des gültigen Bereichs.
Kann mir jeman helfen und mir sagen warum?
Noch eine andere Frage. Kann ich eine Zelle als Array deklarieren? Dim Celle(1,1)As feld(2) z.B geht nicht oder?ALso der Zelle irgendwie sagen, dass sie ein Array erkennen soll?
Vielen Dank für eure Hilfe
Gruß Michel