Clever-Excel-Forum

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!

Kurz und knapp, JA Angel

(06.03.2017, 20:51)Basisa schrieb: [ -> ]Kurz und knapp, JA

Würdest du mir noch verraten wie ;)

Hallo,

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

Schau mal hier: Börsendaten in Excel speichern

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

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.

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

L1994

Basisa

L1994

atilla

GMG-CC

atilla

Basisa