Office: Text Liste sortieren

Hallo, ich bräuchte dringend eure Hilfe.
Ich möchte gerne meine Video-Bibliothek so um ändern das diese für Kodi geeignet ist.
Ich habe dafür schon eine passende Excel Tabelle erstellt. Jedoch muss ich den Input immer per Hand sortieren was sehr Aufwändig ist. So sieht ein Beispiel Input aus:
Absolute Duo Folge 1 Blaze.mkv
Absolute Duo Folge 10 Rein Conference.mkv
Absolute Duo Folge 11 Killing Game.mkv
Absolute Duo Folge 12 Absolute Duo.mkv
Absolute Duo Folge 2 Duo.mkv
Absolute Duo Folge 3 Avenger.mkv
Absolute Duo Folge 4 Exception.mkv
Absolute Duo Folge 5 Level Up.mkv
Absolute Duo Folge 6 Survive.mkv
Absolute Duo Folge 7 Silver Blond, Yellow Topaz.mkv
Absolute Duo Folge 8 Selection.mkv
Absolute Duo Folge 9 Rebels.mkv
Nun will ich das ganze nicht per Hand von Folge 1 bis 12 sortieren sondern Excel die Arbeit übernehmen lassen. Ich habe jetzt schon ewig nach einer Lösung gesucht aber nichts gefunden was schnell geht oder unnötig kompliziert ist.
Ich hoffe ihr könnt mir dabei Helfen.
PS: Eine Fixe Lösung funktioniert nicht da die Folgenzahl pro Staffel von 1 bis 26+ Episoden Variieren kann.
LG Lenny

 

Moin!
Extrahiere die Folgenzahl in eine Hilfsspalte mittels
=VERWEIS(99;XMLFILTERN("<a><b>"&WECHSELN(A2;" ";"</b><b>")&"</b></a>";"//b"))
Nach dieser kannst Du jetzt sortieren.


Gruß Ralf

 

Man könnte natürlich auch gleich den Text sortierfähig machen (Excel 365 / Excel Online vorausgesetzt).
Bis Folge 99 gültig:

=LET(z;VERWEIS(99;XMLFILTERN("<a><b>"&WECHSELN(A2;" ";"</b><b>")&"</b></a>";"//b"));WECHSELN(A2;z;TEXT(z;"00")))

 

Und da ich lange nichts mehr mit VBA gemacht habe, hier mal eine kleine Fingerübung:

Code:

Sub Folgen_Sortieren()
Dim i&, k&, arr
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  arr = Split(Cells(i, 1))
  For k = 0 To UBound(arr)
    If IsNumeric(arr(k)) Then
      Cells(i, 1) = Replace(Cells(i, 1), arr(k), Format(arr(k), "00"))
    End If
  Next
Next
Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Sort Cells(2, 1)
End Sub

ergibt

Absolute Duo Folge 01 Blaze.mkv
Absolute Duo Folge 02 Duo.mkv
Absolute Duo Folge 03 Avenger.mkv
Absolute Duo Folge 04 Exception.mkv
Absolute Duo Folge 05 Level Up.mkv
Absolute Duo Folge 06 Survive.mkv
Absolute Duo Folge 07 Silver Blond, Yellow Topaz.mkv
Absolute Duo Folge 08 Selection.mkv
Absolute Duo Folge 09 Rebels.mkv
Absolute Duo Folge 10 Rein Conference.mkv
Absolute Duo Folge 11 Killing Game.mkv
Absolute Duo Folge 12 Absolute Duo.mkv

 

Vielen Dank für die Hilfe, ich habe das ganze kurz ausprobiert und alles Funktioniert super! Ich werde mich gleich mal dran machen und das ganze in meine Arbeitsmappen Integrieren.