Ich möchte wenn ich in den Zellen A:G einen Wert mit mehr als 20 Zeichen habe das Automatisch ein Zeilenumbruch gemacht wird.
Könnte mir Bitte jemand dabei Helfen ?
Danke Heinz
Sub test()
Dim c As Range
For Each c In Range("A:G")
If Len(c.Value) > 20 Then
c.Value = Left(c.Value, 20) & Chr(10) & Right(c.Value, Len(c.Value) - 20)
End If
Next c
End Sub
Sub test()
Dim c As Range
For Each c In Range("A:G")
If Len(c.Value) > 20 Then
c.Value = Left(c.Value, 20) & Chr(10) & Right(c.Value, Len(c.Value) - 20)
c.VerticalAlignment = xlCenter
End If
Next c
End Sub