suche Lösung um einen Trend aufzuzeichnen, alle zB. 20min
den wert aus A1 in ZelleB1, 20min wert aus A1 in Zellein B2 usw.
Danke für Eure Hilfe
helena
gruss aus Schweiz
Option Explicit ' Variablendefinition erforderlich
Public DaEt As Date ' nächste Blinkzeit
Dim LoLetzte As Long ' Letzte Zeile Spalte B
Public Const DaZeit As Date = "00:00:01" ' Zeitabstand Blinken
' In Tabelle2 im Bereich C7 bis C12 stehen ie Ausgangswerte stehen
' In Tabelle1 im Berech A6 bis J11 stehen die Werte die blinken sollen
Sub Ubertragen()
With ThisWorkbook.Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row, _
.Rows.Count) + 1
If .Range("B1") = "" Then LoLetzte = 1
.Cells(LoLetzte, 2) = .Range("A1")
End With
DaEt = Now + DaZeit
Application.OnTime DaEt, "Ubertragen" ' Prozedur zur Startzeit starten
End Sub
Sub Ende()
On Error Resume Next ' Fehlerbehandlung ausschalten
Application.OnTime EarliestTime:=DaEt, Procedure:="Ubertragen", Schedule:=False
DaEt = 0
On Error GoTo 0
End Sub
Gruß Hajo
Private Sub Workbook_Open()
DaZeit = Worksheets("Tabelle1").Range("A1")
End Sub
oder wann Du dioe Zeit festlegen willst.
Option Explicit ' Variablendefinition erforderlich
Public DaEt As Date ' nächste Blinkzeit
Dim LoLetzte As Long ' Letzte Zeile Spalte B
Public DaZeit As Date ' Zeitabstand Blinken
Sub Ubertragen()
DaZeit = Worksheets("Tabelle1").Range("D1")
With ThisWorkbook.Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row, _
.Rows.Count) + 1
If .Range("B1") = "" Then LoLetzte = 1
.Cells(LoLetzte, 2) = .Range("A1")
End With
DaEt = Now + DaZeit
Application.OnTime DaEt, "Ubertragen" ' Prozedur zur Startzeit starten
End Sub
Sub Ende()
On Error Resume Next ' Fehlerbehandlung ausschalten
Application.OnTime EarliestTime:=DaEt, Procedure:="Ubertragen", Schedule:=False
DaEt = 0
On Error GoTo 0
End Sub
Gruß Hajo