nakedbarrel
Legacy Member
Beste, paar probleempjes die ik heb in een Excel-file. Ik heb een kolom met klantennummers, van deze klantennummers moest een deel geschrapt worden, ik had enkel de 4 laatste cijfers nodig dus heb ik met de formule =RECHTS(rijnr;4) enkel de 4 laatste cijfers over. Nu zou ik graag deze nummers omdraaien zodat het laatste cijfers op de 1e positie komt, het voorlaatste 2e enzovoort. Vb : 0001 wordt 1000, 1234 wordt 4321. Is er iemand die hier een formule voor kent? Ik heb wel deze macro
Sub mcrSwitchWords()
sq = Split([A1], vbLf)
For j = 0 To UBound(sq)
sq(j) = StrReverse(sq(j))
Next
[B1] = Join(sq, vbLf)
End Sub
maar dan moet ik steeds handmatig het rijnr gaan aanpassen of kan ik dit automatiseren? Nu eens deze nummers omgedraaid zijn zou ik willen sorteren op het laatste nummer, dan op het voorlaatste, dan op het 3e laatste en dan op het 4e laatste zodat vb : 1000 er eerst 3x naar de nullen gekeken wordt en dan pas naar de 1. Als ik alle klantnummers gedraaid en gegroepeerd krijg op het laatste cijfer zal ik al blij zijn. Iemand ideeën? Thanks!
Sub mcrSwitchWords()
sq = Split([A1], vbLf)
For j = 0 To UBound(sq)
sq(j) = StrReverse(sq(j))
Next
[B1] = Join(sq, vbLf)
End Sub
maar dan moet ik steeds handmatig het rijnr gaan aanpassen of kan ik dit automatiseren? Nu eens deze nummers omgedraaid zijn zou ik willen sorteren op het laatste nummer, dan op het voorlaatste, dan op het 3e laatste en dan op het 4e laatste zodat vb : 1000 er eerst 3x naar de nullen gekeken wordt en dan pas naar de 1. Als ik alle klantnummers gedraaid en gegroepeerd krijg op het laatste cijfer zal ik al blij zijn. Iemand ideeën? Thanks!
