Query-uitvoer op werkblad

[flbos]

Hieronder een werkende macro. De juiste gegevens worden geselecteerd en weergegeven. Het probleem is dat er (doordat er gebruikgemaakt wordt van add) de gegevens als nieuwe kolommen ingevoegd worden. Er staan nog meer zaken op het werkblad die dan verschuiven en dit is absoluut niet de bedoeling. Ik zou graag willen weten hoe ik de query-uitvoer op het werkblad krijg, zonder dat dit invloed heeft op de indeling van mijn werkblad. Gewoon de gegevens in het doelbereik waarbij de gegevens boven het doelbereik niet een aantal kolommen opschuiven.

Bij voorbaat dank!

Sub Knop1_BijKlikken()

sqlstring = "SELECT vrgvrspl.vvsartinr, vrgvrspl.p34, vrgvrspl.p35, vrgvrspl.p36 FROM vrgvrspl"
connstring = _
"ODBC;DBQ=d:\1\database.mdb;DefaultDir=d:\1;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize"
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
Destination:=Range("a26"), sql:=sqlstring)
.Refresh
End With
End Sub

 

[Marrosi]

Hallo flbos,

Ik zou door middel van de add-functie de gegevens van je query eerst op een ander werkblad zetten en ze daar na copieren naar hun uiteindelijke bestemming.

Hoogstwaarschijnlijk zal er ook nog wel een elegantere oplossing bestaan.

Groetjes - Marrosi

 

[flbos]

Elegant is het misschien niet, maar het werkt wel prima!
Bedankt.