• 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.

deel array wegschrijven

Status
Niet open voor verdere reacties.

jansm

Gebruiker
Lid geworden
2 apr 2014
Berichten
421
hallo,
onderstaande code schrijft een 12 koloms array naar een tabel. Hoe kan ik van dit array alleen kolom 4 wegschrijven?

Code:
With Sheets("GETUIGEN_OVERZICHT")
      .Cells(1, 1).Resize(UBound(sharr), UBound(sharr, 2)) = sharr 
    On Error Resume Next
  .Sheets("GETUIGEN_OVERZICHT").EntireColumns.AutoFit
  .HorizontalAlignment = xlCenter
 End With
Mvg, Jansm
 
Kolom 4 in de array is array index 3 omdat een array begint bij 0 in plaats van bij 1. Tenzij je Option Base 1 gebruikt.
De waarde ervan haal je zo op: sharr(3)

Tip:
Haal die On Error Resume Next uit je code weg.
 
Laatst bewerkt:
Het is een tweedimensionale array.

Code:
Resize(UBound(sharr)) = application.index(sharr, 0,4)
 
Edmoor, bedankt voor het meedenken. HSV, doet het, dank!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan