text tot columns probleem

[remcotje123]

Hoi ik heb een probleem met een functie van excel die eerst wel werkte, maar nu niet meer terwijl ik niks verandert heb.

Ik doe observaties en daarbij typ ik bepaalde codes in zoals: '2…422' of '9…6..' deze codes zijn altijd 7 digits lang.
Nu had ik een macro gemaakt die dit in 3 kollom zet, met een fixed width, bv: '2…422' wordt 2|...|4|22, dit werkte altijd goed!
Nu ik het echter weer probeerde, met dezelfde macro (zelfs met de hand geprobeerd) maakt hij er ineens heel andere dingen van '2…422' wordt 2|...4|2|2.
Als ik ook kijk naar de breaks in een voorbeeld zie ik ook dat ookal doe ik het per digit als op de plek van de '...' 3 cijfers staan, verschijnt de break in een cel waarin '...' inderdaad na ...4 (als in voorbeeld).
Hoe kan dit ineens, ik hoop echt dat iemand me hiermee kan helpen, ik snap er namelijk niets van waarom dit ineens zo gebeurt:S heeft het iets met mijn celopmaak te maken ofzo?

Ik gebruik de nieuwste office met alle updates onder vista...

alvast heel erg bedankt!
remco

 

[Roncancio]

Kan je de code ook plaatsen zodat we kunnen zien wat er aan de hand is.

Met vriendelijke groet,


Roncancio

 

[remcotje123]

Hier is de code:


Sub Transfer_Code()
'
' Transfer_Code Macro
'
' Keyboard Shortcut: Ctrl+t
'
Columns("D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("C:C").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 2), Array(1, 2), Array(4, 2), Array(5, 2)), _
TrailingMinusNumbers:=True
Range("C1").Select
Selection.ClearContents
Range("D1").Select
Selection.ClearContents
Range("E1").Select
Selection.ClearContents
Range("F1").Select
Selection.ClearContents
Columns("C:C").EntireColumn.AutoFit
Columns("D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
ActiveWindow.SmallScroll Down:=-21
Range("C1").Select
ActiveCell.FormulaR1C1 = "action"
With ActiveCell.Characters(Start:=1, Length:=6).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("D1").Select
ActiveCell.FormulaR1C1 = "companion"
With ActiveCell.Characters(Start:=1, Length:=11).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("E1").Select
ActiveCell.FormulaR1C1 = "place"
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("F1").Select
ActiveCell.FormulaR1C1 = "nestbox"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("F2").Select
End Sub

 

[remcotje123]

Nog geen oplossing

Heeft iemand al enig idee hoe ik dit probleem kan verhelpen?
Ik zit er nog steeds mee namelijk...

groet remco

 

[trucker10]

Ik bemerk dat problemen met een voorbeeld bestandje vlugger van de baan zijn dan een code lezen die niet niet tussen de tags staat en als we deze dan ook nog eens moeten gaan simuleren in een eigen bestandje dat deze topic's vlugger in de vergeet hoek raken .
Ik zou zeggen plaats een voorbeeld bestandje met wat gegevens en .........