Automatisch rijhoogte aanpassen bij samengevoegde cellen

[Brother Rabbit]

Ik heb samengevoegde cellen, met tekstterugloop, en ik wil de hoogte
van de rij automatisch laten aanpassen. Ik heb al begrepen in eerdere
berichten dat dit niet (standaard) kan.
Als de celeigenschappen op autoaanpassen staat of als ik dubbelklik op
de rij, gaat de rij terug naar de standaardhoogte van 1 regel.

Is er toch een mogelijkheid dat dit toch kan? Evt met een macro ofzo?

Gr.
Brother Rabbit

[Maurrieske]

Met een macro is dit mogelijk.
Je moet wel ergens het aantal karakters opgeven dat in het bereik per regel
past. In onderstaand voorbeeld is dat aantal geplaatst in cel A1 (het kan
ook in de code vastgezet worden). Onderstaande code dien je op het
objectenblad van het werkblad (in de vba mode direct onder microsoft
objecten te vinden) te plaatsen.
Houd er wel rekening mee dat niet alle karakters evenveel ruimte inbeslag
nemen. De f is een smallere letter dan de w. Je zult dus merken dat je in
sommige gevallen teveel of te weinig rijhoogte hebt (afhankelijk van het
opgegeven aantal karakters).

Private Sub Worksheet_Change(ByVal Target As Range)
aantal = Range("A1")
aantal1 = Len(ActiveCell)
rest = 0
If aantal1 Mod aantal > 0 Then rest = 1

aantalrijen = Int(aantal1 / aantal) + rest

ActiveCell.Rows.RowHeight = aantalrijen * 13.2
End Sub

Succes,

Maurrieske

"Brother Rabbit" <brothe...@hetnet.nl> schreef in bericht
news:986ec8b1-7310-451b...@y9g2000yqn.googlegroups.com...

[Brother Rabbit]

On 5 sep, 10:09, "Maurrieske" <maurrie...@hotmail.com> wrote:
> Met een macro is dit mogelijk.
> Je moet wel ergens het aantal karakters opgeven dat in het bereik per regel
> past. In onderstaand voorbeeld is dat aantal geplaatst in cel A1 (het kan
> ook in de code vastgezet worden). Onderstaande code dien je op het
> objectenblad van het werkblad (in de vba mode direct onder microsoft
> objecten te vinden) te plaatsen.
> Houd er wel rekening mee dat niet alle karakters evenveel ruimte inbeslag
> nemen. De f is een smallere letter dan de w. Je zult dus merken dat je in
> sommige gevallen teveel of te weinig rijhoogte hebt (afhankelijk van het
> opgegeven aantal karakters).
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> aantal = Range("A1")
> aantal1 = Len(ActiveCell)
> rest = 0
> If aantal1 Mod aantal > 0 Then rest = 1
>
> aantalrijen = Int(aantal1 / aantal) + rest
>
> ActiveCell.Rows.RowHeight = aantalrijen * 13.2
> End Sub
>
> Succes,
>
> Maurrieske
>

Dank je voor je antwoord.

Je hebt het over "Onderstaande code dien je op het objectenblad van

het werkblad (in de vba mode direct onder microsoft objecten te
vinden) te plaatsen."

Hoe kom ik daar? Is dit ergens te vinden onder menu Extra - Macro -
Macro's of onder Visual Basic Editor?

[Maurrieske]

De objectenbladen vind je in de VBA editor. Meestal staan deze in het
linkervenster. In het linkervenster staan de tabbladen genoemd onder
Microsoft excel objecten. Deze bladen noem ik de objectenbladen. Alle
objecten die je maakt met de werkset besturingsinstrumenten en op een
tabblad zet kun je op deze bladen van code voorzien.
Dubbelklik op het tabblad waar de code bij hoort en verbaas je over het
resultaat.

Maurrieske

"Brother Rabbit" <brothe...@hetnet.nl> schreef in bericht

news:18729d52-56ba-40d7...@e8g2000yqo.googlegroups.com...