[vba excel]for lus en reeks getallen

[107mb]

een macro heeft de volgende functionaliteit:
doorloop een 150-tal files.
per file moeten gegevens van regel 4, 8, 10 - 20, 22 - 30 ingelezen worden in een hoofdArray.

ik heb dit alsvolgt opgelost:
de bovenstaande reeks in een hulpArray gestopt:

code:

hulpArray(0) = 4
hulpArray(1) = 8
hulpArray(2) = 10
enz.

daarna de lus:

code:

for a = 0 to 21
    hoofdArray(teller,0) = cells(hulpArray(a),1)
next a

het werkt wel, maar het is geen compacte code. is dit niet anders op te lossen, bijvoorbeeld:

code:

for a = {4,8,10,11,12, enz.)

[ Voor 4% gewijzigd door 107mb op 11-09-2006 15:24 ]

[zwippie]

Je kan het begin nog iets verkorten met:

Visual Basic:

hulpArray = Array(4,8,10,11,...)

[Stiegl]

Is dit niet leuker:

Visual Basic:

For a = 4 to 30
   Select Case a
      Case 4, 8, 10 To 20, 22 To 30
         hoofdArray(teller,0) = cells(hulpArray(a),1)
   End Select
Next a

v v Dat bedoelde ik uiteraard

[ Voor 21% gewijzigd door Stiegl op 11-09-2006 15:59 ]

[107mb]

JAA! dit is veel leuker

met een kleine aanpassing, want de hulparray is niet meer nodig!:

Visual Basic:

for a = 4 to 30
   Select Case a
      Case 4, 8, 10 To 20, 22 To 30
         hoofdArray(teller,0) = cells(a,1)
   End Select
next a

thanks!