mit untenstehendem Code sortiere ich die beiden Spalten im jeweiligen Bereich nach der zweiten Spalte (Zahlen). Soweit, so gut - es kommt aber vor, dass in den obersten Zelle keine Werte stehen, dann kommt es zum Abbruch. Die Leerzellen in anderen Zeilen werden wunschgemäß ans Ende sortiert
Für Hilfe wäre ich dankbar.
grüße
Werner
Sub sortieren()
Dim s As Integer
For s = 1 To 13 Step 2
Range(Cells(3, s), Cells((Cells.CurrentRegion.Rows.Count), (s + 1))).Select
Selection.sort Key1:=Selection.Cells(Cells(3, s + 1)), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next s
End Sub