cells(x,y).value
Jonas
habe folgendes Problem:
Option Explicit
Dim x, y, o, p As Integer
Dim zei, spa As Integer
Dim i, erg, anz As Double
For spa = x To y Step 1
For zei = 0 To p Step 1
i = Cells(zei, spa).Value
If i >= w Then erg = erg + i
If i >= w Then anz = anz + 1
Next zei
Next spa
Bei der Zuweisung von i gleich zellwert bekomm ich eine Errormeldung.
Vielen Dank schon mal im Vorraus.
Jonas