Spalten mit Text und Zahlen sortieren

[LCohen]

Mit LET und LAMBDA sind

ohne VBA
ohne Hilfsspalten
ohne PQ
ohne xl4Makro
ohne .XLSM oder .XLSB
ohne Sicherheitsabfragen
absolut IT-abteilungskonform (denn Schadcode ist nicht möglich)

sehr viele komplizierte Lösungen möglich (siehe oben durch mich). Und zwar seit gestern für JEDEN! (auch für Libre-Office-User, die sich mit ihrer Hotmail oder live-Account bei https://office.live.com/start/Excel.aspx (XLWeb) kostenfrei anmelden, obwohl sie selbst kein Excel haben).

Auch, wenn sulprobil dafür nur ein verächtliches "Schlampda" übrig hat. Das liegt daran, dass er kein Tabellenkalkulierer ist, sondern VBA'ler und Mathematiker.

[snb]

Code:

Sub Rebmog_snb()
  sn = Cells(1).CurrentRegion.Columns(1)
   
  With CreateObject("ADODB.recordset")
    .Fields.Append "basis", 129, 4
    .Fields.Append "num", 2
    .Fields.Append "txt", 129, 1
    .Open
       
    For j = 2 To UBound(sn)
      .AddNew
      .Fields("basis") = sn(j, 1)
      .Fields("num") = Mid(sn(j, 1), 2)
      .Fields("txt") = Left(sn(j, 1), 1)
      .Update
    Next
    .Sort = "num, txt"
     
    MsgBox Replace(Join(Filter(Split(Replace(.getstring, vbCr, vbTab), vbTab), " "), vbLf), " ", "")
  End With
End Sub