Hallo ieder,
Kom er niet uit in VBA omdat ik er de kennis niet van heb,
Graag wil ik dit verder leren en ben blij al veel geleerd te hebben van jullie allen.
In bijlage Te importeren TXT bestand.
In Excel Rijen verwijderen, Tekst naar kolommen (bovenste deel niet gelijk aan onderste deel).
Lege rijen tussen plaatsen en kolommen max uitlijnen.
In excel voorbeeld
1° tabblad : TXT bestand
2° tabblad : Gewenst (gedaan met een macro (via recorder)
3° tabblad : 1° test VBA (rijen verwijderd)
4° tabblad : 2° test VBA (een ramp !!!) alles bijna weg
Versta niet goed de werking van de array(s) vb
Array(Array(0, 1), Array(8, 1), Array(43, 1),
1. Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(43, 1), Array(53, 1), Array(56, 1), _
Array(64, 1), Array(71, 1), Array(81, 1), Array(86, 1)), TrailingMinusNumbers:=True
2. Selection.TextToColumns Destination:=Range("I1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(43, 1), Array(52, 1), Array(60, 1), _
Array(66, 1), Array(69, 1), Array(80, 1)), TrailingMinusNumbers:=True
Sorry voor het niet kunnen/begrijpen
Alvast Bedankt
Georgyboy