rijhoogte automatisch aanpassen (merge text)

Hi,
In worksheet is er een brief, waarvan sommige cellen variabelen zijn naar andere cellen. Daardoor kunnen er lange of korte tekst komen. Enkele cellen zijn samengevoegd.

Soms wordt er lange tekst overgenomen die niet volledig zichtbaar is, dan moet ik de rijhoogte manueel aanpassen (dubbelklik gaat gewoon naar normaal hoogte alsof er maar 1 lijn tekst is...)

Dus ik maak een macro aan en hoop dat het werkt... Niet dus

Waar ligt het fout?

Hieronder de code...

Dim cl As Range

For Each cl In Range("B2:B100")
Select Case Len(cl)
Case Is < 91
cl.RowHeight = 13
Case 91 To 180
cl.RowHeight = 26
Case 181 To 270
cl.RowHeight = 39
Case 271 To 360
cl.RowHeight = 53
Case 361 To 450
cl.RowHeight = 65
Case Is > 541
cl.RowHeight = 80
End Select
Next

End Sub

Zet in de eigenschappen van de cel bij Uitlijning de Terugloop aan.

Bedankt, terugloop stond uiteraard aangevinkt. Dat is het probleem niet.

Voeg dan een voorbeeld document toe.

excelfile

Bekijk bijlage Map2.xlsm

Je gaat de lengte van de tekst in kolom B vergelijken en dat is natuurlijk niet juist.

Maak er eens dit van:

VenA zei:

Je gaat de lengte van de tekst in kolom B vergelijken en dat is natuurlijk niet juist.

Code:

For Each cl In Range("C2:C100")

Klik om te vergroten...

That is it... :thumb:

edmoor zei:

Maak er eens dit van:

Code:

Sub test2()
    Rows.AutoFit
End Sub

Klik om te vergroten...

Helpt niet. had het ook al geprobeerd

Dat werkt bij mij in je eigen document prima.

@edmoor, werkt bij mij niet maar ik 'haat' dan ook opgemaakte cellen en fratsen en er dus ook niet verder naar gekeken:d

@PVS81
Het quoten is niet nodig.
Is dit niet voldoende

Werkt sneller
Merci. Zelf nooit vba geleerd... Doch probeer ik het toch zelf op te lossen met tips van jullie allemaal!:thumb: