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

Gegevens van tabel automatisch overnemen in ander werkblad

Status
Niet open voor verdere reacties.

benne_ss

Gebruiker
Lid geworden
1 mei 2007
Berichten
43
Besten,

Ik zoek een manier om een tabel met veel informatie automatisch op een ander werkblad weer te geven maar dan enkel de kolommen die ik wil.
Liefst kan de volgorde van de kolommen aangepast worden.

Zo doende kan ik makkelijke printouts maken van de info in de tabellen.

Iemand een ide, u heeft mijn eeuwige dank ;)!
 
Als je bestand 1 werkblad heeft, waarin een tabel staat met de kolomkoppen veld1 t/m veld5, kun je in een tweede werkblad de gegevens uit de kolommen veld2, veld5 en veld1 in die volgorde zó plaatsen:

Code:
Sub M_snb()
  With CreateObject("ADODB.Recordset")
    .Open "SELECT veld2, veld5, veld1  FROM `" & ThisWorkbook.Sheets(1).Name & "$`", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml"""
    ThisWorkbook.Sheets.Add(, Sheets(Sheets.Count)).Cells(1).CopyFromRecordset .DataSource
  End With
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan