Sub M_snb()
sn = Cells(1, 2).Resize(60, 6)
sp = Range("M3:M10")
n = 3
For j = 3 To 5
st = Split(sn(j, 5), ",")
sn(n, 6) = sn(j, 1)
n = n + 1
For jj = 2 To UBound(sp)
sn(n, 6) = "."
sq = Split(sp(jj, 1), ",")
If sq(0) > "." Then
For Each it In sq
sn(n, 6) = sn(n, 6) & "," & st(it - 1)
Next
sn(n, 6) = Mid(sn(n, 6), 3)
End If
n = n + 1
Next
Next
Cells(1, 2).Resize(60, 6) = sn
End Sub
sp = Range("M3:M10")
Oder gibt es eine Variante für mehrere Styles?Kannst ein wenig kommentieren damit ich weiß wie erhöhen, wenn in Spalte "B" mehr Akkorde sind.Ich habe (wenn du das meinst mit repräsentative Datei), alle usw. raus genommen,