Oei jongens, ik was er ook juist naar aan het kijken...
@emields,
Enkel bij wijze van opbouwende 'kritiek' : los van de terechte opmerking van SoftAid gaat je code meer dan een miljoen cellen verwerken. De gebruikte eerst tellen zou al kunnen helpen, maar zelfs dat is niet nodig, want je kan Excel dat in één keer laten doen.
";;;;;" aan het begin is waarschijnlijk ook geen meerwaarde, en dus heb ik er het volgende van gemaakt (met in het achterhoofd de gekende wetenschap dat opgenomen code meestal wat overbodigs bevat):
Sub splitsen()
With Columns("A")
.Replace What:=";;;;;", Replacement:="", LookAt:=xlPart
.TextToColumns Destination:=Columns("A"), DataType:=xlDelimited, Semicolon:=True, Other:=True, OtherChar:="-"
End With
End Sub
Groeten,
pitufo