Superscript

[wieter]

n.a.v. De post van Beeksplace "Rank probleempje", probeerde ik een ranking te maken met rangtelwoorden i.p.v. hoofdtelwoorden.
In bijlage een voorbeeldje met rangtelwoorden.
Is het mogelijk om van 1ste, 1^ste en van 2de 2^de, enz... te maken?

Bekijk bijlage rangschikking2.xlsm

 

[snb]

Sub tst()
    Cells(6, 5).Value = Cells(6, 5).Value
    Blad1.Cells(6, 5).Characters(2, 2).Font.Superscript = True
End Sub

 

[wieter]

@snb
Je code werkt perfect, maar na uitvoering, verdwijnen de formules, en dat is nu ook weer niet de bedoeling.

 

[Cobbe]

Haal de formules weg uit kolom E en deze doet de rest:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 2 To 100
 If Cells(i, 6) >= 1 Then
    Cells(i, 5).Value = WorksheetFunction.Rank(Cells(i, 6), Range("F2:F100")) & " ste"
    Blad1.Cells(i, 5).Characters(3, 4).Font.Superscript = True
 End If
Next
Application.EnableEvents = True
End Sub

Wel een probleem met 'de' & 'ste'

 

[wieter]

Sorry Cobbe, maar ook jou oplossing werkt niet zoals verwacht ("ste" en "de" probleem)
En bij invullen van nieuwe namen loopt het mis.
Ik denk de formule-oplossing te gebruiken en het superscript maar te vergeten.
Als 2 super-specialisten als snb en jij, niet direct een oplossing vinden, lijkt mijn wens onuitvoerbaar.
Spijtig voor je geleverde inspanning.
Groeten en dank.

 

[Cobbe]

Ja stom er zat een stomme fout in de code, sorry!

Heb de 'de' en de 'ste' opgelost.

 

[wieter]

BINGO!!!!! Cobbe,
Goed leesbare en logische code.
Ik ga nog een tweede voorwaarde inlassen om de gelijke scores weg te werken.
Hartelijk dank!