an ralf_b oder an euch alle

Sub M_snb()
    BereichFbisG = Cells(1, 2).Resize(60, 6)
    ' Debug.Print sn.Address
    spalteM = Range("M3:M10")
   
    n = 3
    For j = 3 To 7                                                  'von Zeile 3 - 6 für Beispieldaten
        WerteAusZelleSpalteF = Split(BereichFbisG(j, 5), ",")         'Zerlegung der Inhalte von Zelle ab Zeile 3 in Spalte 6 (F) sn beginnt bei B
        BereichFbisG(n, 6) = BereichFbisG(j, 1)                     'Inhalt spalte B Zeile ab j=3 wird in Spalte 6(G) n=3 geschrieben
        n = n + 1                                                   'Zeile erhöhen um 1
        For jj = 2 To UBound(spalteM)                               'Schleife über die Einträge in M
            BereichFbisG(n, 6) = "."                                ' Punkt in Spalte G schreiben
            WerteVonZellenAusM = Split(spalteM(jj, 1), ",")         'Zellinhalt von Spalte M wird zerlegt ab Zeile 3
            If WerteVonZellenAusM(0) > "." Then                    ' nur wenn kein Punkt vorne dran ist
                On Error Resume Next
                For Each Wert In WerteVonZellenAusM                        ' Schleife über die einzelnen Werte
                    BereichFbisG(n, 6) = BereichFbisG(n, 6) & "," & WerteAusZelleSpalteF(Wert - 1)  'Umsortierte Werte aus Spalte F nach G
                Next
                On Error GoTo 0
                BereichFbisG(n, 6) = Mid(BereichFbisG(n, 6), 3)               'in Spalte G führender Punkt und Komma enfernen
            End If
            n = n + 1                                              'nächste Zeile
        Next
    Next
    Cells(1, 2).Resize(60, 6) = BereichFbisG   'bearbeitetes Array in Blatt zurückschreiben
End Sub