"teveel regelvoortzettingen"

Status
Niet open voor verdere reacties.

wimven

Gebruiker
Lid geworden
26 jul 2009
Berichten
54
De macro moet in excel tekst verdelen over 240 kolommen waarbij tijdens het uitvoeren van de macro de foutmelding "teveel regelvoortzettingen" verschijnt en de macro stopt. De foutmelding kom ik nergens tegen op het forum.

De tekst komt oorspronkelijk uit een csv-bestand. Deze tekst heb ik al voorzien van scheidingstekens en ziet er als volgt uit waarbij als scheidingsteken ";" gebruikt is en de x steeds een ander getal is
1,x;2,x;3,x;4,x; t/m 60,x; en daarna nog 3 keer 1 t/m 60 met steeds andere getallen voor de x

Hopelijk weet iemand dit op te lossen...
 
Vast wel.
Maar zonder je document en de code te zien zal dat lastig zijn.
 
zoals je ziet komt dit uit een door excel gemaakte macro en hier is het scheidingsteken |
'
Cells.Replace What:="],[", Replacement:="|", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Selection.TextToColumns Destination := Range("J3"), DataType := xlDelimited, _
TextQualifier := xlDoubleQuote, ConsecutiveDelimiter := FALSE, Tab := TRUE, _
Semicolon := FALSE, Comma := FALSE, Space := FALSE, Other := TRUE, OtherChar _
:= "|", FieldInfo := Array(Array(1,1),Array(2,1),Array(3,1),Array(4,1),Array(5, _
1),Array(6,1),Array(7,1),Array(8,1),Array(9,1),Array(10,1),Array(11,1),Array(12 _
,1),Array(13,1),Array(14,1),Array(15,1),Array(16,1),Array(17,1),Array(18,1), _
Array(19,1),Array(20,1),Array(21,1),Array(22,1),Array(23,1),Array(24,1),Array( _
25,1),Array(26,1),Array(27,1),Array(28,1),Array(29,1),Array(30,1),Array(31,1), _
Array(32,1),Array(33,1),Array(34,1),Array(35,1),Array(36,1),Array(37,1),Array( _
38,1),Array(39,1),Array(40,1),Array(41,1),Array(42,1),Array(43,1),Array(44,1), _
Array(45,1),Array(46,1),Array(47,1),Array(48,1),Array(49,1),Array(50,1),Array( _
51,1),Array(52,1),Array(53,1),Array(54,1),Array(55,1),Array(56,1),Array(57,1), _
Array(58,1),Array(59,1),Array(60,1),Array(61,1),Array(62,1),Array(63,1),Array( _
64,1),Array(65,1),Array(66,1),Array(67,1),Array(68,1),Array(69,1),Array(70,1), _
Array(71,1),Array(72,1),Array(73,1),Array(74,1),Array(75,1),Array(76,1),Array( _
77,1),Array(78,1),Array(79,1),Array(80,1),Array(81,1),Array(82,1),Array(83,1), _
Array(84,1),Array(85,1),Array(86,1),Array(87,1),Array(88,1),Array(89,1),Array( _
90,1),Array(91,1),Array(92,1),Array(93,1),Array(94,1),Array(95,1),Array(96,1), _
Array(97,1),Array(98,1),Array(99,1),Array(100,1),Array(101,1),Array(102,1), _
Array(103,1),Array(104,1),Array(105,1),Array(106,1),Array(107,1),Array(108,1), _
Array(109,1),Array(110,1),Array(111,1),Array(112,1),Array(113,1),Array(114,1), _
Array(115,1),Array(116,1),Array(117,1),Array(118,1),Array(119,1),Array(120,1), _
Array(121,1),Array(122,1),Array(123,1),Array(124,1),Array(125,1),Array(126,1), _
Array(127,1),Array(128,1),Array(129,1),Array(130,1),Array(131,1),Array(132,1), _
End Sub
 
Sorry hoor.
Maar dat is niet wat ik vroeg en hebben we helemaal niets aan.
 
Beste Edmoor
Jammer.
Waar het om gaat is dat het teveel arrays zijn want bij een veel lager aantal gaat het goed. Blijkbaar is er een maximum en moet ik de reeks data uit die ene cel die naar kolommen gesplitst moet worden eerst in (Liefst 4) kleinere stukken verdelen
 
Code graag tussen codetags. Het hele stuk met fieldinfo kan je gewoon weglaten.

Uiteindelijk houd je dan zoiets over
Code:
Columns(2).TextToColumns Range("B1"), xlDelimited, , , , , , , True, "|"
 
Bedankt VenA, dit was precies wat ik als begin nodig had en hiermee hoef ik het ook niet eerst in 4 stukken te verdelen vanwege de grootte.

:thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan