Sub test()
Dim c As Range
'Sheets("AV Tank").Select
For Each c In Range("B:B")
If Len(c.Value) > 36 Then
c.Value = Left(c.Value, 36) & Right(c.Value, Len(c.Value) - 20)
End If
Next c
End Sub
Dies habe ich gefunden und ist fast perfekt, es soll aber ganz ein fach nach 36 Zeichen Zeilenumbruch machen, jetzt wird der resttext noch gekürzt.
SOLL = nach 36 Zeichen, Rest in gleiche Zelle in 2te Zeile
DANKE
Helena
Gruss aus CH