Zelleninhalt 2
Dirk
um nochmals auf das Coding zurückzukommen. Leider lassen sich Texte in der Grössenordnung
15x15 (225 Textfelder) nicht darstellen. Woran könnte das liegen?
Max nur so ca. 170.
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
Gruss Dirk