Verändernde Werte kopieren und speichern

[L1994]

Hallo zusammen,

Ich habe eine Excel Datei, in die alle 5 Sekunden Aktienkurse durch ein Add in eingespeist werden. Ich würde gerne den Verlauf dieser Werte festhalten. 
Gibt es die Möglichkeit, dass z.B. der Wert aus Zelle "I8" 1 Mal pro Minute kopiert wird und dann in einem neuen Arbeitsblatt automatisch untereinander eingefügt wird mit der dazugehörigen Uhrzeit? 

Viele Grüße!

[Basisa]

Kurz und knapp, JA

[L1994]

Kurz und knapp, JA

Würdest du mir noch verraten wie ;)

[atilla]

Hallo,

ich hatte so etwas schon mal eingestellt, weiß aber nicht ob es funktioniert hat.

Schau mal hier: Börsendaten in Excel speichern

[GMG-CC]

Moin,
ich glaube eher, dass dir Application.Ontime ein guter Helfer sein kann.

[atilla]

Hallo Günther,

ich hatte es so verstanden, dass jede Minute Werte reinkommen, die gespeichert werde sollen.
Somit falsch verstanden.

Es muss Application.Ontime eingesetzt werden, wobei mein drüben eingestellter Code mit genutzt werden sollte/könnte.

[Basisa]

Ohne ganz genau zu wissen was alles kopiert werden müsste:

Datei im Anhang!

Code:

Option Explicit

Private Sub Workbook_Open()

Call Timer

End Sub

Code:

Option Explicit
Public Uhrzeit As Date

Sub Timer()
Dim MaxZeile1, MaxZeile2 As Integer

   Application.OnTime Now + TimeValue("00:00:03"), "Timer"

   If Format(Uhrzeit, "hh:mm") <> Format(Now, "hh:mm") Then
       MaxZeile1 = Sheets("Tabelle1").Range("A65000").End(xlUp).Row
       MaxZeile2 = Sheets("Tabelle2").Range("A65000").End(xlUp).Row + 1
       
       ' Wert übertragen
       Sheets("Tabelle2").Cells(MaxZeile2, 1).Value = Sheets("Tabelle1").Cells(MaxZeile1, 1).Value
   
       ' Uhrzeit Übertragen
       Sheets("Tabelle2").Cells(MaxZeile2, 2).Value = Format(Now, "hh:mm:ss \U\h\r")
   
       ' Neue Uhrzeit
       Uhrzeit = Now
   End If
   
End Sub