Re: VBA: Aufslitten von Tabellenspalten

Hallo Solaiman,
[ .. ]

Sub TextInSpalten()
Dim Wks As Work***

Dim Text As String
Dim TempText As String
Dim Pos As Integer
Dim S As Integer
Dim lZeile As Integer

Set Wks = Worksheets("Tabelle1")
lZeile = Wks.Cells(65536, 3).End(xlUp).Row

For i = 1 To lZeile
S = 3 'Spalte C

Text = Replace(Wks.Cells(i, S), Chr(9), " ") 'Tabulator in Leerzeichen
umwandeln
Text = Trim(Text)
While InStr(1, Text, " ")
Pos = InStr(1, Text, " ")
TempText = Trim(Mid(Text, 1, Pos))
Text = Trim(Mid(Text, Pos, Len(Text)))

Wks.Cells(i, S) = TempText
S = S + 1
Wend

If TempText <> "" Then
TempText = ""
Wks.Cells(i, S) = Text
End If
Next i

End Sub

good work!
Die Variable i müsste noch definiert werden und der Original-Text sollte
evtl erhalten bleiben.

Bei meinem "Spaghetti" müsste noch die TAB/Space-Konvertierung und die
doppelten_Leerzeichen_Entfernung eingebaut werden.

Gruß
Klaus


.