[VBA/Excel] Redim geeft error...

[GX]

Hoi hoi!

Ik ben nu voor de 2e week bezig met VBA in excel voor m'n werk, maar echt opschieten wil het niet..

Ik heb nu dit:

code:

    maxStud = Worksheets("studenten").Cells(1, 6).Value
    Dim myArray(363, 2)
    Do
        myArray((i - 2), 0) = Worksheets("studenten").Cells(i, 1).Value
        myArray((i - 2), 1) = Worksheets("studenten").Cells(i, 2).Value _
& ", " & Worksheets("studenten").Cells(i, 3).Value _
& " " & Worksheets("studenten").Cells(i, 4).Value
        i = i + 1
    Loop Until IsEmpty(Worksheets("studenten").Cells(i, 1).Value)
    ListBox1.ColumnCount = 2
    ListBox1.List() = myArray

De 362 zijn de waarden die er zijn, maar dat worden er ooit meer, om een wazige reden krijg ik die array gewoon niet variabel..
Maar goed, als ik een redim net voor de laatste regel neerzet met de werkelijke waarde (1 minder dan er nu staat), dan krijg ik de volgende error:

Array Already Dimensioned

mijn eerste reactie is: "pvd"
maar nu ik er al een uur of 2 aan hang, ben ik door mijn inspiratie heen..
Weet iemand hoe ik de array sowieso al dynamisch krijg, of de redim werkend krijg? Of welke methode dan ook?

thanks in advance..

[ Voor 19% gewijzigd door GX op 09-02-2004 14:51 . Reden: stond nog wat VBA-Help rotzooi tussen :D ]

[BtM909]

Moet je niet eerst een dynamische array aanmaken met

code:

Dim MyArray()

Vervolgens kan je met redim je array opnieuw resizen.

toch?

[GX]

De inspiratie kwam zowaar terug.. de redim meteen achter de dim plaatsen maakt hem nog wel enigzins de juiste grootte..

Als iemand nog een nette oplossing heeft graag, maar doen doet ie het nu.



btm dacht hetzelfde als ik blijkbaar

[ Voor 10% gewijzigd door GX op 09-02-2004 14:54 ]

[BtM909]

GX schreef op 09 februari 2004 @ 14:53:
btm dacht hetzelfde als ik blijkbaar

1. Nope, ik haal het letterlijk uit de vba-help.
2. Als je m'n nick afkort, doe het dan goed (BtM)

[GX]

BtM909 schreef op 09 februari 2004 @ 14:58:
[...]

1. Nope, ik haal het letterlijk uit de vba-help.
2. Als je m'n nick afkort, doe het dan goed (BtM)

1. oh, ik heb mezelf helemaal doodgekeken op de vba-help, maar vinden deed ik het niet.. misschien dat ik er uit irritatie gewoon overheen gekeken heb.
2. Mierenneukers heb je altijd


Echter,

Als ik nu een soort van zoekloopje doe, dan moet ik het aantal resultaten daarvan als array grootte hebben. Maar een redim na de loop kan niet, omdat ik dan dus al een grootte opgegeven heb voor de array. ReDim is schijnbaar niet capabel genoeg om daar omheen te werken..

Als iemand hier nog iets voor weet, zou dat erg fijn zijn. Zelf doe ik ook wel weer verder zoeken..

groetjes.

[bigbeng]

Er zijn twee mogelijkheden:

1. Je weet van te voren het aantal regels dat je kwijtwilt. Je kunt met 1 ReDim volstaan en wel direct na de dim.

2. Je weet het van te voren niet. Aan de hand van jouw voorbeeld zou ik zeggen dat dat van toepassing is.
Je kunt nu steeds na de Do van je loop een ReDim uitvoeren waarbij je de variabele dimensie relateert aan i. Wel het keyword Preserve meegeven, dan houdt de array de oude waardes vast.

[Maasluip]

GX schreef op 09 februari 2004 @ 15:03:
[...]
Als ik nu een soort van zoekloopje doe, dan moet ik het aantal resultaten daarvan als array grootte hebben. Maar een redim na de loop kan niet, omdat ik dan dus al een grootte opgegeven heb voor de array. ReDim is schijnbaar niet capabel genoeg om daar omheen te werken..

De help van VB moet voldoende zijn:

The ReDim statement is used to size or resize a dynamic array

Met ReDim kun je alleen een dynamisch array resizen. Als je begint met Dim myArray(363, 2) is je array statisch. Je zult dus moeten beginnen met Dim myArray() en later een keer ReDim myArray(363,2) of welke grootte je ook wil. ReDim's kunnen daarna ook steeds weer opgeroepen worden.
Let er wel op dat bij een ReDim het hele array gewist wordt. Wil je de bestaande gegevens behouden dan moet je ReDim Preserve gebruiken.

Maar dat staat ook allemaal in de help van VB.

[BtM909]

Maasluip schreef op 10 februari 2004 @ 08:23:
[...]
De help van VB moet voldoende zijn:

[...]
Maar dat staat ook allemaal in de help van VB.

VBA

[Maasluip]

BtM909 schreef op 10 februari 2004 @ 10:02:
[...]

VBA

Daar staat het ook

[GX]

bigbeng schreef op 09 februari 2004 @ 17:59:
Er zijn twee mogelijkheden:

1. Je weet van te voren het aantal regels dat je kwijtwilt. Je kunt met 1 ReDim volstaan en wel direct na de dim.

2. Je weet het van te voren niet. Aan de hand van jouw voorbeeld zou ik zeggen dat dat van toepassing is.
Je kunt nu steeds na de Do van je loop een ReDim uitvoeren waarbij je de variabele dimensie relateert aan i. Wel het keyword Preserve meegeven, dan houdt de array de oude waardes vast.

briljant, volgens mij heb ik dit niet eens geprobeerd..
lange saaie werkdagen zorgen voor dode hersencellen

danku!