[VBA+Excel] een kolom in 1 var zetten

[RaZ]

Aangezien ik in m'n vage verleden nog wel eens zat te Basic'en, weet ik nogwel een aantal commando's uit m'n kop.

Wat de bedoeling is, is als volgend. Elke Cell in kolom E wil ik in 1 variable gooien dmv:

code:

For i = 2 To 10147
Range("E" & i).Select: postc(i) = ActiveCell
Next i

Dus ik wil met postc(2) t/m postc(10147) hebben. In het ouwe GW-Basic moest je die var defineren. Dat was toen nog Dim postc 10147. Nu werkt die commando dus mooi niet.

Wie oh wie kan mij vertellen wat het dan wel moet zijn?

[Verwijderd]

bedoel je niet

code:

dim postc(10147) as string

[henkleerssen]

Of als de array verandert .. kun je nog altijd redim preserve gebruiken...
dus:

Visual Basic:

sub nice
'Je weet de lengte van de kolom E
dim postc(10147) as string

For i = 2 To 10147
   postc(i)= Range("E" & i).value
Next i

End sub

of:

Visual Basic:

Sub nice()
'Je weet de lengte niet van de kolom E.. checkt op leeg zijn van cell in E
Dim postc As Variant
Dim lngCell As Long

For lngCell = 2 To 65536
    If Range("E" & lngCell).Value <> "" Then
        ReDim Preserve postc(lngCell)
        postc(lngCell) = Range("E" & lngCell).Value
    Else
        Exit For
    End If
Next

End Sub

ff snel in elkaar gezet.. zijn ook weer andere methode dan deze hoor..

[ Voor 12% gewijzigd door henkleerssen op 29-11-2002 13:07 ]

[RaZ]

Uhm... tís voor mij ook onderhand 20 jaar geleden
ja.. ik weet het, ik word oud