tekstopmaak kopiëren met functie ?

[NiCeXoTiC]

Hey allen,

Is het mogelijk om de tekstopmaak van cellen me te kopiëren bij gebruik van een functie ?

Bv:

In Cel A1 staat : E₁₂
In Cel A2 staat : C₂₅

In Cel A4 staat de waarde 1

Ik wil nu in bv Cel C3 via =Als(A4=1;A1;A2)

Dan komt in Cel C3 nu te staan : E12

Is het nu mogelijk om ook de opmaak mee te kopiëren (De letter E als hoofdletter en de 12 als subscript) ?

 

[OctaFish]

IK heb even een testje gemaakt, dat je wellicht kunt ombouwen naar een bruikbare macro.

Sub testje()
Dim i
Dim rng As Range, rng2 As Range
Dim b As Boolean

    Set rng = Range("F9")
    Set rng2 = ActiveCell
    rng.Value = rng2.Value
    
    For i = 1 To Len(rng.Value)
        rng.Characters(Start:=i, Length:=1).Font.Superscript = rng2.Characters(i, 1).Font.Superscript
    Next i
End Sub

 

[NiCeXoTiC]

Thx OctaFish

Hoewel ik me nog nooit echt aan VBA heb gewaagd, denk ik wel dat het wel zal lukken om hier iets mee uit te werken.

Bedankt.

 

[OctaFish]

Succes . En anders gaan we gewoon verder