• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Array maken van 5 kolommen via VBA, wil alleen 3e kolom in sheet hebben

Status
Niet open voor verdere reacties.
Excelbat

Excelbat

Gebruiker
Lid geworden
23 mrt 2012
Berichten
402
Hallo allemaal,

Ik heb het volgende macrootje gefabriceerd:

Code: 
Sub ArrayMaken()
    ReDim ar(5, 5)
        
        For rijtje = 1 To 5
            ar(rijtje, 1) = rijtje & "-" & "Eerste"
            ar(rijtje, 2) = rijtje & "-" & "Tweede"
            ar(rijtje, 3) = rijtje & "-" & "Derde"
            ar(rijtje, 4) = rijtje & "-" & "Vierde"
            ar(rijtje, 5) = rijtje & "-" & "Vijfde"
        Next rijtje
    
    ActiveSheet.Cells(5, 1).Resize(UBound(ar), UBound(ar, 2)) = ar
    ActiveSheet.Cells(15, 1).Resize(UBound(ar), UBound(ar, 2) - 2) = ar

End Sub

En dan gaat het vooral om deze regel:

Code: 
    ActiveSheet.Cells(15, 1).Resize(UBound(ar), UBound(ar, 2) - 2) = ar

Deze laatste regel vult de sheet met kolom 1 t/m 3. Ik wil echter alleen kolom 3.
Wat moet ik wijzigen om dat voor elkaar te krijgen?

Zie ook bijlage: Bekijk bijlage ExcelbatSimpeleArray.xlsb

Thanx/Excelbat
 
Code: 
 ActiveSheet.Cells(21, 3).Resize(UBound(ar)) = Application.Index(ar, , 3)
 
Thanx EvR,

Dat is inderdaad de oplossing die ik zoek.

Thanx/Excelbat
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan