Hallo zusammen,
für die Erstellung von sinnvollen Kurztexten in einem LV, habe ich folgenden Code gefunden der mir einen beliebig langen
Text genau richtig aufteilt.
In Spalte 1 und 2 maximal 30 Zeichen und den Rest dann in Spalte 3
Die Funktion wird jetzt nur für die erste Zeile ausgeführt.
Wie sieht eine entsprechende Schleife aus?
Entweder für eine bestimmte Anzahl von Zeilen oder besser noch bis zur ersten Leerzeile.
Vielen Dank für Lösungen, da ich leider keine Ahnung habe und mir den Code einfach nur in das vorhandene Makro kopiere.
Private Sub TextSpalter()
Dim i As Long
Dim s As String
s = Cells(1, 1)
i = InStrRev(s, " ", 30, vbTextCompare)
If i > 0 Then
Cells(1, 1) = Left$(s, i - 1)
Cells(1, 2) = Mid$(s, i + 1)
End If
s = Cells(1, 2)
i = InStrRev(s, " ", 30, vbTextCompare)
If i > 0 Then
Cells(1, 2) = Left$(s, i - 1)
Cells(1, 3) = Mid$(s, i + 1)
End If
End Sub
|