Celeigenschappen tekst in formule

[rvanbrandenburg]

Is het mogelijk om in een formule welke resulteert in een tekst op te maken? Dus bijvoorbeeld =als(a1=a2;1e;2e). Met als resultaat dat de e achter de 1 of de 2 als superschrift wordt opgemaakt.

Dank voor je reactie!

 

[Wigi]

Sorry, maar het kan niet op een andere manier dan:

Sub Worksheet_change(ByVal target As Excel.Range)
Dim strResult As String
If Range("A1") = Range("A2") Then
    strResult = "1e"
Else: strResult = "2e"
End If
Range("A3") = strResult
Range("A3").Characters(Start:=2, Length:=1).Font.Superscript = True
End Sub

Plaats deze code in de code voor Sheet1 (daar waar je het wil toepassen). Zie bestand mocht het niet lukken.

Wigi

 

[rvanbrandenburg]

Dank!! In geval van nood zal ik naar toe grijpen, maar inderdaad omslachtig.