Filling a column in a table ...

[JOTHA]

Hi Forum,

when I want to fill a row with the same data, I use this code:

For i = 0 To Table1.ColCount-1
     Table1.Cell (Table1.ColName(i),0) = "Something"
Next

... but how can I fill a column ???

 

[Zenerdiode]

In a similar way:

For i = 0 to Table1.Rowcount-1
     Table1.Cell(ColName,i)="FillData"
Next

 

[JOTHA]

Hello Zenerdiode,

thank you for your answer!

I did this now:

For i = 0 To Table1.RowCount-1
Table1.Cell ("ColName", ((i-0)+0)) = "Data"
Next

I also works, but it adds a row at the end of the table.

 

[JOTHA]

Hello Zenerdiode,

your code is correct.

I was experimenting about 2 hours and the mistake was my fault because I had a "AddRow-Code" after this code (that was the reason). :sign0137:

THANKS again!