Kolombreedte aanpassen

[svekkes]

Aan allen,

Ik zit met een probleempje en ik vind nergens een oplossing.

Ik heb op een invulformulier een groot tekstvak staan, waar men meerderde lijnen kan invullen.
Nu zou ik graag hebben dat wanneer deze gegevens naar de juiste kolom worden geschreven, dat deze kolom en de rijhoogte zich automatisch aanpassen. Dit is de code die ik al heb:

Columns("G:G").ColumnWidth = 25
    With ActiveCell
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

Alvast bedankt.

 

[leofact]

dat zou moeten lukken met autofit

    With ActiveCell
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        .Columns.AutoFit
        .Rows.AutoFit
    End With

Het is echter niet zo zinvol rij en kolom allebei op automatisch te zetten.
Hij pakt volgens mij toch alleen de laatste (in dit geval de rij)
mvg leo

 

[svekkes]

Beste Leo,

Bedankt voor je antwoord. Ik ben hiermee aan de slag gegaan, maar het lukt nog steeds niet.

Dit is hetgeen wat ik nu heb (eigenlijk onze 2 codes samen):

Columns("J:J").ColumnWidth = 25
    With ActiveCell
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        .Rows.AutoFit
    End With

Ik heb die automatische kolombreedte inderdaad weggelaten en een vaste breedte genomen. Maar het probleem is nu, dat het enkel voor de actieve cel werkt en niet voor alles.

 

[leofact]

Het geldt inderdaad alleen voor de rij van de actieve cel
dat komt door de with activecell.
Als je meerdere rijen wil zul je dat met b.v. een range moeten doen.
b.v Range("jouwbereik").Rows.AutoFit

Oh, ja verder moet ook bij celeigenschappen tekst terugloop aanstaan, anders valt er niets te "autofitten"

 

[svekkes]

Beste Leo,

Ik ben ook nog wat verder aan het zoeken geweest en ik heb nog een andere oplossing gevonden die wel werkt voor mij:

Worksheets("Blad6").Range("J:J").WrapText = True
Worksheets("Blad6").Range("J:J").HorizontalAlignment = xlCenter
Worksheets("Blad6").Range("J:J").VerticalAlignment = xlCenter

Dit heb ik gewoon in mijn code ingebouwd en nu doet ie eigenlijk wat ik wil. Weet wel niet meer waar ik deze gevonden heb (het internet is toch ook zo uitgebreid).

Hartelijk bedankt voor je hulp.

 

[leofact]

Worksheets("Blad6").Range("J:J").WrapText = True

en inderdaad tekstterugloop aanzetten.
dat kan ook bij celeigenschappen.

Mooi dat je eruit bent,

mvg leo