Vielen Dank Gast 79714 Habe es so " mw(v) = CInt(Range(Cells(i, 4), Cells(i, 4)).Value) " lösen können. Man sieht öffter den Wald vor lauter Bäumen nicht mehr. ;-)