nächstes Wort in nächste Spalte
14.01.2003 19:59:08
Tim
Sub mySplit()
Dim A() As String
Dim j As Integer
Dim i As Long
Dim NextPos As Long
NextPos = 1
For i = 1 To Len(ActiveCell.Value)
If Mid(ActiveCell.Value, i, 1) = "," Or i = Len(ActiveCell.Value) Then
ReDim Preserve A(j)
If i < Len(ActiveCell.Value) Then
A(j) = Mid(ActiveCell.Value, NextPos, i - NextPos)
Else
A(j) = Mid(ActiveCell.Value, NextPos, i)
End If
j = j + 1
NextPos = i + 1
End If
Next
For i = 0 To UBound(A)
Cells(i + 1, 1) = A(i)
Next
End Sub
Wenn ich die entsprechend modifiziere wird dadurch ein String der durch Kommata getrennt ist zerlegt und die Einzelteile schreiben sich in der Spalte A abwärts in die Tabelle. Ich komme nun nicht darauf, wie ich es anstellen kann, dass die Einzelteile
"Waagerecht" eingetragen werden also z.B. erstes Wort in A1, zweites in B1, drittes in C1 usw.
Hat jemand eine Idee?