Maximale waarde in een cel vasthouden

[Schink1970]

Hallo,

Ik heb een spreadsheet waarin ik in een specifieke cel (bijv A1) constant een meetwaarde opvraag vanuit een DDE server.
Deze waarde kan in principe iedere 100ms wijzigen.
Nu wil ik in een andere cel alleen de hoogste waarde uit die ene cel (A1) hebben staan.
Eigenlijk wil ik dus die waarde kopiëren naar een andere cel (zeg C1) als deze groter is dan de huidige waarde in C1.
Heeft iemand een voorbeeld hoe ik dit in VBA kan oplossen?

Thanks.

 

[HSV]

Zet in bv. cel XFD1 een formule: =a1*10

In de werkblad-module van het werkblad plaats je onderstaande code.

Private Sub Worksheet_Calculate()
If Range("a1") > Range("b1") Then Range("b1") = Range("a1")
End Sub

Als de waarde van cel A1 groter is dan de waarde van B1 wordt cel B1 de waarde van cel A1, en anders blijft de waarde van B1 staan.

 

[Schink1970]

Gelukt

Harry,
Dank je wel, wat kan het leven toch eenvoudig zijn.
Ik zat veel te moeilijk te denken hier.