datatransfer naar EXCEL - DDE koppeling Vestics -> Excel

[Eppo]

Twee eenvoudige macro's die de waarden in een cel periodiek in een kolom achtereenvolgens opbergen, zijn de volgende.
(Een ervan is de door GMe aangegeven macro.)

Neem aan, dat elke 15 minuten de veranderende inhoud in cel D5 moet worden op geborgen in kolom E vanaf E2.

Sub KopieerCelInhoud()
Cells(Range("E10000").End(xlUp).Row + 1, 5) = Cells(5, 4)
PeriodiekOpbergen
End Sub

Sub PeriodiekOpbergen()
Application.OnTime Now + TimeValue("00:15:00"), "KopieerCelInhoud"
End Sub

PS: Mochten er emoticons in de opdrachten voorkomen, dan zijn dat )'s, dus haakjes sluiten.