Er der nogle der kan hjælpe med dette modul.

Hvordan får jeg det til at sorterer alfabetisk og ikke numerisk?¨

Modulet ser således ud og er "tyvstjålet" fra en anden tråd.

 

Sub Sorter()
'
' Sorter Makro
'

'
    Range("A2:B50").Select
    ActiveWorkbook.Worksheets("mødeliste").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("mødeliste").Sort.SortFields.Add Key:=Range( _
        "A2:A50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("mødeliste").Sort
        .SetRange Range("A2:B45")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub