tekst verdelen

[Andre01]

Een tijdje geleden heb ik op dit forum een scrip gekregen om tekst in te korten naar 40 karakters per cel. En dat maakt hij automatisch een cel eronder aan met de resterende karakters.

Nu heb ik dit script weer onder het stof vandaan gehaald maar ik krijg een foutmedling.(zie bijlage)

Kan iemand mij vertellen wat er niet klopt?

 

[Wigi]

Een tijdje geleden heb ik op dit forum een scrip gekregen om tekst in te korten naar 40 karakters per cel.

Geef eens de link naar die topic, dat maakt het wellicht wat gemakkelijker voor helpers.

EDIT:

http://www.helpmij.nl/forum/showthread.php?t=210015

 

[Wigi]

Dit lijkt me veel beter.

Sub TekstVerdelen()
Dim lastrow As Long, l As Long
Application.ScreenUpdating = False
lastrow = ActiveCell.End(xlDown).Row

For l = lastrow To ActiveCell.Row Step -1
    With Cells(l, ActiveCell.Column)
        If Len(.Value) > 40 Then
            Rows(.Row + 1).Insert
            .Offset(1) = Right(.Value, Len(.Value) - 40)
        End If
        .Value = Left(.Value, 40)
    End With
Next
Application.ScreenUpdating = True
End Sub

Test het uit op je bestand en laat het ons weten.

Wigi

 

[Andre01]

Fantastich,

Deze werkt perfect.

Bedankt.:thumb:

 

[Wigi]

Fantastich,

Deze werkt perfect.

Bedankt.:thumb:

Graag gedaan André