External data en nieuwe kolommen

[Tinus1975]

Hallo,

Ik heb een spreadsheet waarin external data (koersinfo) wordt opgehaald. Dat is allemaal geen probleem, maar hoe zorg ik er nu voor dat elke keer als de data wordt ge-refreshed er een nieuwe kolom wordt aangemaakt? Zo blijven tenminste de oude waarden behouden en kun je deze nog bekijken (of plotten).

Thanx!

 

[Ingrid B]

Je kan via een macro eerst de kolom kopiëren en vervolgens de gegevens vernieuwen. Je moet er dan wel op letten nooit de gegevens rechtstreeks te vernieuwen.

Sub test()
  Range("C:C").Copy
  Range("D1").Insert Shift:=xlToRight
  Application.CutCopyMode = False
  Range("A1").QueryTable.Refresh BackgroundQuery:=False
End Sub