alphanummerisch mehrere Spalten sortieren

Sub AngSort()
Dim Endrow As Integer
Dim wks As Worksheet
Set wks = Sheets("A")
With wks
.Select
Endrow =  .Cells(RowsCount, 1).End(xlUp).Row + 1
Range(Cells(21, 1), Cells(Endrow, 11)).Select
Selection.Sort Key1:=wks.Range("A21"), _
Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A19").Select
End With
End Sub

Sub AufEinheit()
Dim var As Variant
Dim intRow, intLastRow As Integer
Dim txt As String
Dim wks As Worksheet
Set wks = Sheets("Data")
With wks
var = Application.Match(frmStart.ComboB5.Value, Columns(1), 0).End(xlUp).Row+1
intRow = .Cells(Rows.Count, 1).Row + 1
End With
If IsError(var) Then
txt = frmStart.ComboB5.value
With wks
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(intRow, 1) = txt
.Range("A:A").Sort _
Key1:=Range("A1"), _
Order1:=xlAscending, _
Header:=xlNo
End With
If txt = "" Then
ActiveCell.Offset(0, 1).Value = txt
End If
frmStart.ComboB5.Clear
frmStart.ComboB5.List = wks.Range("A1").CurrentRegion.Columns(1).Value
For intRow = 0 To frmStart.ComboB5.ListCount - 1
If frmStart.ComboB5.List(intRow) = txt Then Exit For
Next intRow
frmStart.ComboB5.ListIndex = intRow
End If
End Sub