Geplaatst op
Een ander voorbeeld om de gegevens in een cel te splitsen en de losse items in naast gelegen cellen te plaatsen.
Zie ook:
Tekst terugloop in cel splitsen naar meerdere cellen
Wederom tekst terugloop in cel splitsen
Sub SplitsGegevens()
'Splits data in een cel naar naast gelegen cellen
Dim SplitsData As Variant
Dim intTotaal As Integer
'Gegevens van een cel in matrix opslaan
SplitsData = Split(ActiveCell.Value, Chr(10))
'Bovengrens matrix bepalen
intTotaal = UBound(SplitsData)
'Naar naast gelegen cellen schrijven
Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), _
Cells(ActiveCell.Row, ActiveCell.Column + 1 + intTotaal)).Value = SplitsData
End Sub