Sub subSetValues()
Dim iValuesCount As Integer
iValuesCount = Sheets("admin").Cells(3, 6)
Dim nStart As Single, nInterval As Single
nStart = Sheets("ozsp_2013").Range("I7").Value
nInterval = Sheets("admin").Range("F2").Value / 24 / 60
Dim sFormula As String
sFormula = nStart & "+(ROW(1:" & iValuesCount & ")-1)*" & nInterval
sFormula = Replace(sFormula, ",", ".")
Range("a30").Resize(iValuesCount, 1).Value = Evaluate(sFormula)
End Subcitovat
Dim iValuesCount As Integer
iValuesCount = Sheets("admin").Cells(3, 6)
Dim nStart As Single, nInterval As Single
nStart = Sheets("ozsp_2013").Range("I7").Value
nInterval = Sheets("admin").Range("F2").Value / 24 / 60
Dim sFormula As String
sFormula = nStart & "+(ROW(1:" & iValuesCount & ")-1)*" & nInterval
sFormula = Replace(sFormula, ",", ".")
Range("a30").Resize(iValuesCount, 1).Value = Evaluate(sFormula)
End Subcitovat