Søg
Avatar billede folj Forsker
03. september 2015 - 12:08 Der er 8 kommentarer og
1 løsning

Ændre størrelse på array excel-VBA

Hej eksperter !

Jeg manglér lige nogle guldkorn fra en array-ekspert, så jeg kan ende med at udvide mit array DeliveriesArray(9,6) som jeg allerede har hentet ind i min kodning. Det er nu på 9 rækker og 6 kolonner.

Jeg vil godt lige udvide arrayet fra de nuværende 6 kolonner til 8 kolonner, så jeg kan løbe det igennem og tilføje nogle ekstra data i disse kolonner.

er det muligt og hvordan?
Avatar billede erikjuul (ikke aktiv længere) Mester
03. september 2015 - 12:20 #1
Dim DeliveriesArray(9,6)
.
.
.
ReDim Preserve DeliveriesArray(9,8)
Avatar billede folj Forsker
03. september 2015 - 12:56 #2
@erikjuul
Den fejler på lige nøjagtig den linie:
ReDim Preserve DeliveriesArray(UBound(DeliveriesArray, 1), 8)

fejlen siger "Subscript out of range"

Bemærk at jeg har blot erstatttet 9-tallet af UBound(DeliveriesArray, 1) da det varierer hvor mange rækker der vil være.
Avatar billede folj Forsker
03. september 2015 - 13:35 #3
Jeg fandt en måde at klare det på uden at jeg havde behov for at ændre på array-størrelsen.

Tidligere i koden havde jeg mulighed for at ændre på det range den henter data fra til DeliveriesArray, og koden kunne fint håndtere et array i den størrelse hele vejen.

hvis ikke der kommer yderligere kommentarer, så har jeg tænkt mig at lukke mit spm. med det.
Avatar billede Flemming Vadet - Smart Office DK Professor
03. september 2015 - 21:13 #4
Tror du ikke, at du blot skal have et lille + 1 tilføjet, således der kommer en række mere...

ReDim Preserve DeliveriesArray(UBound(DeliveriesArray, 1) + 1, 8)
Avatar billede erikjuul (ikke aktiv længere) Mester
04. september 2015 - 08:57 #5
Godt du fandt en løsning.

Jeg synes bare ikke løsningen passer til din problembeskrivelse:
"Jeg vil godt lige udvide arrayet fra de nuværende 6 kolonner til 8 kolonner"
Avatar billede folj Forsker
04. september 2015 - 12:16 #6
@smartoffice_dk:
Nej for jeg skal bevare det rækkeantal jeg har.
Det var kun kolonne-antal jeg ønskede at udvide til 8.
Avatar billede folj Forsker
04. september 2015 - 12:16 #7
Det er vist lukketid...
Avatar billede folj Forsker
04. september 2015 - 12:19 #8
Og tak for Jeres engagement til erikjuul og smartoffice_dk
Avatar billede Flemming Vadet - Smart Office DK Professor
04. september 2015 - 14:30 #9
Det havde også hjulpet, hvis jeg havde læst det hele fra starten af...

Problemet er, at du sætter størrelsen på dit array i din DIM sætning, og dermed er det låst... hvis du derimod gør det således, så har du ingen problemer...

Sub DemoRedimArray()
    Dim DeliveriesArray As Variant
    ReDim DeliveriesArray(9, 6)
    DeliveriesArray(9, 6) = "Smart Office"
    ReDim Preserve DeliveriesArray(UBound(DeliveriesArray, 1), 8)
    MsgBox DeliveriesArray(9, 6) & vbCrLf & UBound(DeliveriesArray, 1) & " - " & UBound(DeliveriesArray, 2)
End Sub
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Fjern tekst efter mellemrum Af ABE15 i Excel 2 18/02/202620:41 19/02/202611:30
Udskrift af ark Af boro23 i Excel 4 17/02/202608:38 18/02/202607:46
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 10:32 hvilken afløser kan I anbefale? Af jcr18 i Andet sikkerhed
I går 09:27 Hjælp til Api.asmx Af lurup i Andet programmering
16/0310:59 Ændre navn på ost-fil i Outlook Af TTA i Office & Kontorpakker
15/0316:12 Outlook fejler: 0x80070057 + 0x800CCC0E Af TTA i Office & Kontorpakker
14/0320:13 PIHOLE Af dcedata1977 i Linux
White papers
Flere white papers »