Tekst in cellen aanvullen

[YvesM]

Hallo,

Ik zit met het volgende:
Ik wil in een cel een tekst van tussen de 33 en 40 karakaters automatisch laten aanvullen met spaties tot 236 karakters en als 237e karakter een 6.

Even een voorbeeld:

Tekst [SPATIES] 6

Dus tussen "Tekst" en de 6 automatisch laten aanvullen met spaties totdat het totaal van de cel 237 karakters bevat.

Iemand suggesties?

 

[Roncancio]

Via een macro wordt bepaald wat de lengte is van de waarde in cel A1. Deze wordt aangevuld tot en met de 236e karakter en vervolgens wordt er een 6 neergezet.


Sub Macro1()
Dim Getal As String
Dim Lengte As Integer

Lengte = Len(Range("a1"))
Getal = Range("a1")
Do Until Lengte = 236
Getal = Getal + Space(1)
Lengte = Len(Getal)
Loop
Getal = Getal & 6
End Sub

 

[YvesM]

Bedankt, hier was ik inderdaad naar op zoek :thumb: