Functie LEFT

[frenske1964]

Hallo Te samen.

Ik heb een eenvoudige vraag.

ik heb in kolom C artikelbeschrijvingen staan, waarvan enkele zeer lange, die elke ochtend opnieuw uit SAP word gehaald.
Om een goede uitdraai op a4 format te krijgen mag de lengte van de tekst max 25 karakters zijn.

Is er via vba een mogelijkheid om een gehele kolom in een keer in te stellen op een max van 25 karakters via de functie left of mid,
of werkt dit alleen via een loop

dit ivm tijdbesparing.
de gehele file bewerken duurt namelijk ongeveer 10 minuten en ben op zoek naar mogelijkheden om tijd te besparen.

groetjes frans

 

[Wigi]

Sub leftfunctie()

    sq = ActiveSheet.UsedRange.Columns(1)
    For i = 1 To UBound(sq, 1)
        sq(i, 1) = Left(sq(i, 1), 25)
    Next
    [A1].Resize(UBound(sq)) = sq

End Sub

 

[snb]

Om een goede uitdraai op a4 format te krijgen mag de lengte van de tekst max 25 karakters zijn

.
Dat lijkt me afhankelijk van het lettertype, grootte en opmaak.
Waarom pas je die niet aan ?

of

Maak de breedte van de kolom op de gewenste breedte.
controleer die waarde met VBA : c0=Columns(3).Width

Stel in een nieuw bestand de breedte van kolom C in met bijv.
Columns(3).Width= 170
Stel wel de terguloopfunctie in voor de cellen in kolom C
Columns(3).WrapText = True

 

[frenske1964]

Bedankt

Wigi dank je wel voor een mooi stukje code, werkt perfect.

En SNB, lettertype grootte en opmaak zijn al allemaal vastgelegd, en als norm vastgelegd in BOS, vandaar

Groet Frans