Problem!
15.11.2004 22:30:16
zockomoggo
habe folgendenes Problem:
ich streame Daten aus einem externen Programm per dynamischen Link in Excel (in Zelle 1 auf Blatt 1). Das bedeutet, dass sich in Zelle A1 der Wert selbstständig ändert. (ca. alle 1-2 Sekunden)
nun möchte ich dies mitprotokollieren, bzw. immer, wenn eine Änderung der Zahl in Zelle A1 erfolgt, soll diese Zahl in eine Liste eingetragen werden und die jeweilige Uhrzeit mitgespeichert werden.
Dies mache ich mit folgendem Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Range("A65536").End(xlUp).Offset(1).Value = Range("A1").Value
Range("A65536").End(xlUp).Offset(0, 1).Value = Format(Now(), "hh:mm:ss")
End If
End Sub
Es funktioniert leider nur, wenn ich den Wert in Zelle A1 manuell ändere. Jede automatische Änderung in Zelle A1, z.B. durch die externen Daten oder z.B. durch die Verknüpfung mit einer anderen Zelle, führt dazu, dass die Liste nicht "weitergeschrieben" wird.
Kann mir jemand von Euch helfen?
Wäre absolute klasse,
Im Voraus Vielen Dank,
MfG