De maximum waarde die ooit bereikt wordt in cel X opslaan

[Jacq v d Heuvel]

Ik heb een vraagje i.v.m. een Exceldocument.
Cel X bevat een formule. De uitkomst van die formule wijzigt naargelang de waarden in de cellen A, B, C, ... die deel uitmaken van die formule. Ik zou in een andere cel (Y) de maximum waarde die ooit bereikt wordt in cel X willen opslaan. Dus telkens X>Y wordt, moet Y=X worden Is daar een eenvoudige oplossing voor?

 

[Excelbat]

Zou je misschien de titel van je topic willen aanpassen? Bijv. maximumwaarde vastleggen in cel (of iets dergelijks).
?? dekt niet echt de lading.

In antwoord op je vraag: ja daar is min of meer een simpele oplossing voor mogelijk via VBA,
maar het is wel handig als je even een excel-voorbeeld-documentje plaatst.

Greetz/Excelbat

 

[gast0660]

Hoi,
Test deze (voor 100 rijen)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ThisCell1 As Range
Dim ThisCell2 As Range
    For Each ThisCell1 In Range("x1:x100")
    For Each ThisCell2 In Range("y1:y100")
            If ThisCell1.Value > ThisCell2.Value Then
                ThisCell1.Offset(, 1).Value = ThisCell1.Value
                Exit For
                End If
            Next ThisCell2
        Next ThisCell1
End Sub

 

[snb]

@dotchie: toch niet iedere keer als een andere cel aktief wordt ?

[Y1:Y100]=[if(X1:X100>Y1:Y100,X1:X100,Y1:Y100)]

 

[mastermindzh]

Beste JacQ,

Wil u in het vervolg aub een titel ingeven, daardoor wordt de vraag beter gevonden en krijgen helpers direct een indicatie over het probleem.

mv.g en een prettige dag gewenst,
Mastermindzh