Goedemiddag,
In een macro zet ik de tekst in kolom C om naar cellen.
Dit op basis van spaties:
Range("C:C").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
Alles gaat goed, maar mijn probleem is dat als ik daarna iets plak met een andere macro dan gaat hij ook overal waar iets in staat met een spatie splitsen in meerdere cellen.
Is er een manier om dit op te lossen?
Misschien een andere manier om tekst op te splitsen.
Bedankt!
In een macro zet ik de tekst in kolom C om naar cellen.
Dit op basis van spaties:
Range("C:C").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
Alles gaat goed, maar mijn probleem is dat als ik daarna iets plak met een andere macro dan gaat hij ook overal waar iets in staat met een spatie splitsen in meerdere cellen.
Is er een manier om dit op te lossen?
Misschien een andere manier om tekst op te splitsen.
Bedankt!