Declaring funktions value to variable

[arbeg]

Hi,

I made a vba program which works fine. This program splits information from one cell into few cells. I think there is a better way to write the program. My program use formula, paste it into cell, calculate, then takes cell value (string) and paste it again into the cell. OK, this is fine, and it works while I dont have a lot of rows, but: I have 200.000 rows.

So my question is: is there a better way to declare variable?

All information is in column A and it looks like this:

20103335 18.08.2010 18.08.2010 268 30635866 42.00 PCE 8.06 338.52 25

I need a bold part in separate columns (Date 2, Buyer, Material, Volume, Value)

Question 2: Is there a better way to change column? I used "switch" command.
Question 3: I used if statement to jump over 7 and 8th loop sequence because I didnt need those informations, but I needed ninth. Is there a better way to do same thing?

This is the code:

Please Login or Register  to view this content.

Thanks in advance.

[royUK]

Not sure what you mean, maybe Text To Columns

[arbeg]

Well, I just want to see if there is some other way (easier, faster) to do same job. Specialy loop part. As you can see, I put the formula into cell then I take cell value and put that value into same cell. Do I have to do it like this or is there any other way? Can I declare some variable:

myVariable = Mid (............)

Cells (Row, Column) = my Variable

If yes, how?

Secondly, i used switch command to move to another column as loop variable change. If i = 3 then paste everything into column C, if 4 then in D...

In other words, is there some other way to extract parts of string into separate columns?

20103335 18.08.2010 18.08.2010 268 30635866 42.00 PCE 8.06 338.52 25