Chart genrieren...

Hallo,
mein Anliegen ist etwas umständlicher, vielleicht könnt ihr mir trotzdem helfen.
Die Zelle A1 ist mit einem anderen Programm verknüpft.
Der Wert in A1 ändert sich ständig, aber in keinem bestimmten zeitlichen Rhythmus.
Ich würde gerne ein fortlaufendes Chart der Werte von A1 generieren.
Dafür brauche ich in Spalte B die fortlaufenden Werte und in Spalte C die Uhrzeit der Änderungen.
Konkret:
Wenn ich das Programm um 12:00h starte soll der Aktuelle Wert von A1 (Bsp: 53) in B1 gezeigt werden. Und in Zelle C1 soll 12:00h stehen.
Angenommen um 12:02 ändert sich der Wert in A1 (von 53 auf 54). Dann Soll der neue Wert (54) in B2 angezeigt werden Außerdem soll in C2 12:02h stehen.
Das gleiche Spiel dann in B3 und C3 wenn der nächste Wert kommt.
Die Werte in den Zellen darüber sollen immer erhalten bleiben.
So dass ich dann aus der Spalte B einen fortlaufenden Chart der Werte in A1 generieren kann.

ich bin nicht so fit mit Makros take it easy on me!
Vielen Dank und viele Grüße
Moritz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Moritz,
wenn Du den Wert in A1 manuell änderst, dann klappt das so:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngEintrag As Range
On Error GoTo ErrorHandler
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Set rngEintrag = Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
rngEintrag = Range("A1").Value
rngEintrag.Offset(0, 1).Value = Now
Application.EnableEvents = True
End If
ErrorHandler:
Application.EnableEvents = True
End Sub

Das Problem ist, dass, wenn der Wert durch ein anderes Programm geänder wird, das in Excel kein Ereignis auslöst (wie das Worksheet_Change Ereignis bei manuell).
Du schreibst auch nicht was das für ein Programm ist. Kannst Du vielleich von da aus direkt das Makro in Excel starten? Sonst ist das wohl mehr ein Problem für die Profis hier im Fourm. Ich lasse dir Frage offen.
Gruß
Uwe
(:o)

Private Sub Worksheet_Calculate() Dim loZeile As Long Cells(IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count) + _ 1, 2) = Cells(1, 1) Cells(IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count), 3) _ = Now Cells(IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count), 3) _ .NumberFormat = "hh:mm:ss" End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread