Cijfers veranderen in lijst

[dommeltje]

Ik heb een hele lijst met getallen van 1 tot en met 60.
Nu is het de bedoeling dat alles boven de 10 word weergegeven als >10

Bij voorbaat dank

 

[ExcelAmateur]

dommeltje,

Zo iets?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  For Each cl In Range("A1:A25")
    If cl > 10 Then
      cl.Value = ">10"
    End If
  Next
End Sub

 

[dommeltje]

Ja super bedankt.

 

[ExcelAmateur]

dommeltje
Ja super bedankt.

Vergeet dan niet om de vraag als opgelost te zetten. :thumb:

 

[Warme bakkertje]

Of deze

Sub tst()
    sq = [Blad1!A1:A60]
        For i = 1 To UBound(sq)
            sq(i, 1) = IIf(sq(i, 1) > 10, ">10", sq(i, 1))
        Next
    [Blad1!A1].Resize(UBound(sq)) = sq
End Sub

Voordeel is dat deze niet bij elke celwissel getriggerd wordt.