Sortieren bei verbundenen Zellen

    

If Not block1 Is Nothing Then

        If block1.Rows.Count > 2 Then

            '*** sortieren ***

             Worksheets("Summary (SH2)").Sort.SortFields.Clear

             ''Worksheets("Zusammenfassung (BL2)").Sort.SortFields.Add _

             ''Key:=Range("A" & anfang1 & ":A" & ende1), SortOn:=xlSortOnValues, Order:=xlAscending,

             Worksheets("Summary (SH2)").Sort.SortFields.Add _

             Key:=Range(Cells(anfang1, Range("Erste_Spalte").Column), _

             Cells(ende1, Range("Erste_Spalte").Column)), SortOn:=xlSortOnValues, Order:=xlAscending, _

             CustomOrder:= _

             "1.1,1.2,1.3,1.4,2.1,2.2,2.3,2.4,2.5,3.1,3.2,3.3,3.4,3.5,3.6,4.1,4.2,4.3,4.4,4.5,5.1,5.2,5.3,5.4,5.5,5.6,5.7,5.8,5.9,5.10,6.1,6.2,6.3,6.4,6.5,6.6,7.1,7.2,7.3,7.4,7.5,7.6,7.7,8.1,8.2,8.3,9.1,9.2,10.1,10.2,10.3,11.1,11.2,12.1,12.2,12.3" _

             , DataOption:=xlSortTextAsNumbers

                    With Worksheets("Summary (SH2)").Sort

                        .SetRange Range(block1.Address)

                        .Header = xlYes

                        .MatchCase = False

                        .Orientation = xlTopToBottom

                        .SortMethod = xlPinYin

                        .Apply

                    End With

        End If

    End If