Ich bekomme es zwar hin das die Zellen A13bisA23 sortiert werden, aber ich schaffe es nicht mit den anderen .
Kann mir bitte jemand Helfen den Code anzupassen. Danke.
'Sub SortierenNamen()
Dim strSpalte1 As String
Dim strBereich1 As String
'Parameter
strBereich1 = "A13:A23"
strSpalte1 = "A"
'Sortieren
With Tabelle1
Range(strBereich1).Sort _
key1:=Range(strSpalte1 & "1"), order1:=xlAscending, _
Header:=xlYes, MatchCase:=True
End With