Hab in einer Zelle/Spalte (A) mehrere Wörter stehen die durch ein Leerzeichen getrennt sind, kann kein Leerzeichen enthalten, eins oder mehrere:
Montag Dienstag Mittwoch
Die will ich jetzt auf mehrere Zellen/Spalten (B, C, D, etc.) verteilen.
Muss ja irgendwie so gehen:
Wie genau ist es richtig?
Montag Dienstag Mittwoch
Die will ich jetzt auf mehrere Zellen/Spalten (B, C, D, etc.) verteilen.
Muss ja irgendwie so gehen:
Visual Basic-Quellcode
- Sub Expand()
- Dim Zelle As Range
- Dim i As Integer
- i = 1
- Set Zelle = Worksheets("EinExpand").Range("A:A")
- For Each Zelle In Selection
- Do until (kein Leerzeichen mehr gefunden), ansonsten i = i +1
- Zelle.Offset(0, i).Value = Mid(Zelle.Value, InStr(Zelle.Value, " ") + 1, (Len(Zelle.Value) - InStr(Zelle.Value, " ")))
- Loop
- Next Zelle
- End Sub
Wie genau ist es richtig?