cijfers met een letter achter sorteren

[whiteboy]

Ik heb een macro voor een kolom te sorteren, maar dit is precies enkel voor cijfers.
Momenteel is het zo, 1,2,3,4,7,2a,3a
Ik zou het zo moeten hebben: 1,2,2a,3,3a,4,7

Dit is mijn macro:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
On Error GoTo ErrHand

'If change was in col F, then sort col F ascending
If Target.Column = 4 Then
Set Rng = Range("A1:F" & Range("D65536").End(xlUp).Row)
Rng.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If

ErrHand:
Exit Sub

End Sub

 

[leofact]

celeigenschappen op tekst zetten en in je sorteeropdracht

DataOption1:=xlSortNormal

opnemen.
Lastig is wel dat dit ws alleen werkt bij getallen die ná het veranderen in tekst van celeigenschappen in de cellen zijn gezet.
mvg leo

 

[whiteboy]

beste Leo,

Maar die regel staat er toch al tussen?

 

[leofact]

ja je hebt volkomen gelijk.
Ik had die opmerking net zo goed achterwege kunnen laten
Het gaat er alleen maar om dat je de cijfers als tekst neerzte en sorteert.
het is wel zo dat die sortnormaal er voor zorgt dat je geen vraag krijgt of de getallen als tekst gesorteerd moeten worden. vandaar.mvg leo

 

[whiteboy]

iemand een andere oplossing?

 

[huijb]

@whiteboy
VBA code dient tussen de codetags geplaatst te worden. Zou je zo vriendelijk willen zijn om dit te lezen a.u.b.

 

[popipipo]

Met 2 hulpkolommen lukt het ook

De formules heb ik van de site van Wigi gehaald
De eer is dus aan hem

 

[whiteboy]

Bedankt voor de reactie op mijn vraag.
De formule werkt, maar de sorteerfunctie werkt dan niet meer goed.
Waarschijnlijk door de formule in de cel.
Kan die formule niet in een macro gezet worden?

 

[popipipo]

Hallo Whiteboy

Op welke kolom sorteer je dan.

Bij mijn filetje moetje dus niet sorteren op kolom A.
Sorteer eerst kolom B en dan kolom C (tegelijk natuurlijk)

 

[whiteboy]

Hallo popipipo

Ik ga het anders oplossen.
Ik wil een formule naar een cel kopiëren. Maar ik krijg het niet voor elkaar.

 Cells(WrRij, "E").FormulaR1C1 = "[B]=[/B]links(D" & WrRij & ";cijfers(D" & WrRij & "))"

Als ik het = teken voor links zet, krijg ik een fout.
Wat kan dit zijn?

 

[popipipo]

sorry whiteboy maar van vba heb ik (nog geen) kaas gegeten.

misschien iemand anders?