Sub Divide_Text()
Dim DivTxt As String, divChr As String
Dim i As Integer, myR As Byte, myC As Byte, StartZeile As Byte
StartZeile = 5 'Zeile mit dem ersten Wort
DivTxt = Range("A1").Text 'Der zu zerlegende Text
divChr = " " 'Das den Text trennende Zeichen
myR = StartZeile 'zusätzlich benötigte Variable
myC = 1 'Spalte mit dem ersten Wort
i = 0
Do Until Len(DivTxt) = 0
If InStr(1, DivTxt, " ") = 0 Then
Cells(myR, myC) = DivTxt
Exit Sub
End If
i = i + 1
If Mid(DivTxt, i, 1) = divChr Then
Cells(myR, myC) = Left(DivTxt, i - 1)
DivTxt = Right(DivTxt, Len(DivTxt) - i)
i = 0
myR = myR + 1
'Nach 10 einträgen neue Spalte eröffnen
If myR = StartZeile + 10 Then
myR = StartZeile
myC = myC + 1
End If
End If
Loop
End Sub
| Download des Tabellenkonverters Formeln in den Zellen als QuickNotiz | ||
| Von Ramses | ||
 | A | B |
| 1 | Für ein kleines Beispiel der Funktion sollte dieser Text ja wohl reichen | |
| 2 | ||
| 3 | ||
| 4 | ||
| 5 | Für | wohl |
| 6 | ein | reichen |
| 7 | kleines | |
| 8 | Beispiel | |
| 9 | der | |
| 10 | Funktion | |
| 11 | sollte | |
| 12 | dieser | |
| 13 | Text | |
| 14 | ja | |
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen