Zeilenformation

[RPP63]

Upps, habe ich da was übersehen?? 

Moin!
Ja!
Der TE benutzt LibreOffice!
"Prinzipiell" übersetzt Libre VBA.
In 0,01% der Fälle klappt das sogar …

Gruß Ralf

---

Leider klappt beides irgendwie ned....

Könnte daran liegen, dass Du irgendwie im falschen Forum bist.

Gruß Ralf

[schauan]

Hallöchen,

hier mal ein Ansatz. Als Zeilentrenner in den Zellen habe ich CHR(10) angenommen.

Code:

Sub AufTeilen
    Dim oSheet As Object, oCell as object, oCursor As Object
    Dim oCellRangeForEach as Object, oDC As Object
    Dim Arry() as string, j as long, k as long

    oSheet= thiscomponent.getcurrentcontroller.activesheet
    'Letzte Zeile feststellen und Bereich definieren
    oCursor= oSheet.createCursor
    oCursor.gotoEndOfUsedArea(False)
    LastRow= oCursor.RangeAddress.EndRow + 1
    oCell = oSheet.getCellRangeByName("A1:A" & LastRow)
    'Zelleintraege (Text)(4) in Array holen und in Spate C ausgeben
    oCellRangeForEach = oCell.queryContentCells(4)
    For Each oDC In oCellRangeForEach.getCells()
         Arry = Split(oDC.getString, chr(10))
         For j = 0 To UBound(Arry())
             result = ThisComponent.Sheets(0).getCellByPosition(2,j+k)
             result.String = Arry(j)
         Next j
         'bei gleichbleibender Anzahl Texteintraege kann mit fester Schrittweite
         'gearbeitet werden - hier mal beispielhaft 3.
                 'Alternative: Maximale Anzahl nehmen - es entstehen Leerzeilen
         'oder String ohne Leereintraege bilden oder ...
         k=k+3
         Erase Arry
     Next oDC
     msgbox "Alle Texte aufgeteilt"
End Sub