Koersen opslaan

[mark1960]

Hallo,

Ik heb een excel document waarmee ik koersen via een webquery download vanaf het internet..deze koersen wil ik per minuut opslaan zodat ik er een grafiek van kan maken.

Ik heb 2 macro,s gemaakt,..met macro 2 wil ik macro1 uit laten voeren.

1,
Sub test2()

'
Rows("7:7").Select
Selection.Insert Shift:=xlDown
Range("C66").Select
Selection.Copy
Range("C77").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
test1
End Sub

2,
Sub test1()
Application.OnTime Now + TimeValue("00:01:00"), "test2"
End Sub

Helaas werkt dit niet,
Iemand een idee wat ik fout doe?

 

[mark1960]

Hallo,

Ik heb een excel document waarmee ik koersen via een webquery download vanaf het internet..deze koersen wil ik per minuut opslaan zodat ik er een grafiek van kan maken.

Ik heb 2 macro,s gemaakt,..met macro 2 wil ik macro1 uit laten voeren.

1,
Sub test2()

'
Rows("7:7").Select
Selection.Insert Shift:=xlDown
Range("C66").Select
Selection.Copy
Range("C77").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
test1
End Sub

2,
Sub test1()
Application.OnTime Now + TimeValue("00:01:00"), "test2"
End Sub

Helaas werkt dit niet,
Iemand een idee wat ik fout doe?

Opgelost via worksheet.nl