Avatar billede allright Nybegynder
12. oktober 2009 - 16:05 Der er 3 kommentarer og
1 løsning

Vba range og array (syntax)

Hejsa

Jeg har en stak data jeg skal have overført til et array.

Cellernes placering har jeg anbragt i rplace array, value fra disse celler skal placeres i et sside array, men jeg kan ikke få den til at acceptere koden.

Dim sside(64) As Variant
Dim rplace As Variant
rplace = Array(q5, q7, q9, q11, q16, q18, q20, q22, r5, r7, r9, r11, r16, r18, r20, r22, w5, w7, w9, w11, w16, w18, w20, w22, x5, x7, x9, x11, x16, x18, x20, x22, i5, i7, i9, i11, i16, i18, i20, i22, j5, j7, j9, j11, j16, j18, j20, j22, c5, c7, c9, c11, c16, c18, c20, c22, d5, d7, d9, d11, d16, d18, d20, d22)
Dim nplacering As Variant
For nplacering = 1 To 64
sside(nplacering) = Range(rplace(nplacering)).Value
Next nplacering
Avatar billede tjacob Juniormester
12. oktober 2009 - 16:16 #1
Du skal have anførselstegn om alle elementer i rplace-arrayet.
Altså:  rplace = Array("q5", "q7", "q9", osv
Avatar billede tjacob Juniormester
12. oktober 2009 - 16:28 #2
Desuden vil rplace blive et Array(0 til 63) og IKKE 1 til 64.
Det samme gælder sside der vil blive 0 til 64 -altså 65 elementer.

Så du bør nok ændre til: For nplacering = 0 To 63 osv
Avatar billede allright Nybegynder
12. oktober 2009 - 16:33 #3
Takker, det var lige det der skulle til.
Avatar billede tjacob Juniormester
12. oktober 2009 - 16:42 #4
OK, så tillader jeg mig at smide et svar.....
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Stort udvalg af Excel kurser til alle niveauer og jobfunktioner

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester