Registriert seit: 06.03.2017
Version(en): Office 2016 Mac
06.03.2017, 16:56
(Dieser Beitrag wurde zuletzt bearbeitet: 06.03.2017, 16:56 von 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!
Registriert seit: 14.02.2017
Version(en): Office 365
06.03.2017, 20:51
(Dieser Beitrag wurde zuletzt bearbeitet: 06.03.2017, 20:51 von Basisa .)
Kurz und knapp, JA
Registriert seit: 06.03.2017
Version(en): Office 2016 Mac
(06.03.2017, 20:51) Basisa schrieb: Kurz und knapp, JA
Würdest du mir noch verraten wie ;)
Registriert seit: 14.04.2014
Version(en): 2003, 2007
Hallo,
ich hatte so etwas schon mal eingestellt, weiß aber nicht ob es funktioniert hat.
Schau mal hier:
Börsendaten in Excel speichern
Gruß Atilla
Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag: 1 Nutzer sagt Danke an atilla für diesen Beitrag 28
• L1994
Registriert seit: 28.05.2014
Version(en): 2013 / 2016
Moin,
ich glaube eher, dass dir
Application.Ontime ein guter Helfer sein kann.
Beste Grüße
Günther
Excel-ist-sexy.de …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb - Files mehr herunter! -> So geht's ohne!
Registriert seit: 14.04.2014
Version(en): 2003, 2007
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.
Gruß Atilla
Registriert seit: 14.02.2017
Version(en): Office 365
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
Angehängte Dateien
Test.xlsm (Größe: 17,34 KB / Downloads: 2)
Folgende(r) 1 Nutzer sagt Danke an Basisa für diesen Beitrag: 1 Nutzer sagt Danke an Basisa für diesen Beitrag 28
• L1994