Getallen sorteren op cijfers en niet op groote

[bakerman]

Probeer zo weinig mogelijk interactie met het werkblad te hebben.

 

Sub test()
    Dim vDB, vNew()
    Dim n As Long, i As Long
    Application.ScreenUpdating = False
    With ActiveSheet
        vDB = .Range("C5", .Range("C" & Rows.Count).End(xlUp))
        n = UBound(vDB, 1): ReDim vNew(1 To n, 1 To 1)
        For i = 1 To n
            vNew(i, 1) = Left(vDB(i, 1), 1)
        Next i
        .Columns(3).Insert
        .Range("C5").Resize(n, 1) = vNew
        .Range("A5").CurrentRegion.Sort .Range("C5"), xlAscending
        .Range("C:C").Delete
    End With
    Application.ScreenUpdating = True
End Sub