ich habe vor Jahren eine Lösung gebaut, wo ich verbundene Zellen via VBA sortiert habe:
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
Das hat in der Vergangenheit tadellos funktioniert - nun wurde dieses Formblatt wieder benötigt und mit der heutigen Excel-Version funktioniert das nicht mehr. Auch bei den ausgefüllten, alten Dateien läuft das Makro nicht mehr durch.
Hat jemand eine Idee, wie ich das wieder zum Laufen bekomme?
Vielen Dank und schönes WE!
Lg,
Chris