Text in Zelle nach bestimmter Zeichenanzahl bzw nach bestimmten Zeichen trennen
23.10.2019 11:14:03
Gerhard
ich habe folgende Aufgabenstellung:
In meinem geöffneten Worksheet habe ich eine Zelle(D27).
Diese Zelle kann unterschiedlichste Texte enthalten.
Der Text aus dieser Zelle soll im Worksheet(Zeichnungstabelle) in der Zelle V5 übertragen werden.
Jedoch dürfen im Worksheet(Zeichnungstabelle) immer nur 60 Zeichen in einer Zelle stehen.
Danach soll der Text in der darunter liegenden Zelle fortgesetzt werden.(Trennung natürlich immer nur nach einem ganzen Wort)Es soll so lange gemacht werden bis max. 4 Zellen untereinander beschrieben wurden.(Die 5 Zelle wird nur noch mit einem Wort beschrieben)
Das funktioniert soweit alles super mit dem Code unten.
Jetzt brauche ich noch, dass nach jedem | Zeichen automatisch in die nächste Zelle im Worksheet(Zeichnungstabelle) gesprungen wird sodass der Bediener bei der Eingabe in die Zelle(D27) auch selbst den Absatz bestimmen kann. ( Jedoch dürfen wieder nie mehr als 60 Zeichen in einer Zelle stehen)
Hier komme ich leider nicht mehr weiter.
Kann mir hier jemand helfen?
Danke im Voraus für eure Lösungen.
Sub text()
Dim arr, i As Integer, j As Integer, Zelle As Range
For Each Zelle In Cells(28, 4)
If Len(Zelle) > 60 Then
arr = Split(Zelle, " "): j = 5
For i = 0 To UBound(arr)
If Len(Worksheets("Zeichnungtabelle").Cells(j , 18) & IIf(IsEmpty(Worksheets("Zeichnungtabelle") _
_
.Cells(j , 18)), "", " ") & arr(i)) > 60 Then j = j + 1
If Worksheets("Zeichnungtabelle").Cells( 9, 18) = "" Then Worksheets("Zeichnungtabelle").Cells( _
_
j , 18) = Worksheets("Zeichnungtabelle").Cells(j , 18) & IIf(IsEmpty(Worksheets(" _
Zeichnungtabelle").Cells(j , 18)), "", " ") & arr(i)
Next i
Else
Worksheets("Zeichnungtabelle").Cells(5, 18) = Zelle
End If
Next Zelle
End Sub
Anzeige