Code zu schwierig

Hallo Liebe Gemeinde,
ich habe voe einiger Zeit ein Code von "snb", der leider sich nicht mehr meldet.
https://www.herber.de/bbs/user/158121.xlsm
hier die Mappe,
ich habe mich im Code durchgekämfpt und finde die Stelle nicht.
in "M5" steht 2,3,4 für die Töne des Akkords "Am7"
ich würde gerne mehr Töne vergeben zB.: 2,3,4,5,6
und entsprechend in "F3" : A2,E3,G3,C4,E4,G4,
aber wo das zu ändern ist finde ich nicht,
es ist mir aufgefallen das wenn in "F3" mehr Töne vergebe geschiet nichts,
es werden nach wie vor immer 3 Töne genommen.
Wenn aber in "M5" mehr Zahlen vergeben werden zB.: 2,3,4,5,6 dann
"Index außerhalb des gültigen Bereich".
Kann eventuell jemand darüber schauen und mir die Stelle sagen wo ich was ändern Kann?
In "M5" können max. 3 unterschiedlich lang String:
2,3,4
2,3,4,5
2,3,4,5,6
Vielen Dank im Voraus
LG Antonio

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

die Antwort darauf kannst du aber auch selbst recherchieren. Das Forum ist kein Chatersatz.
WerteAusZelleSpalteF(Wert - 1) oder st(it - 1) erzeugt einen Fehler. Die Zeile überspringt das.

Sub M_snb()
    BereichFbisG = Cells(1, 2).Resize(60, 6)
    ' Debug.Print sn.Address
    spalteM = Range("M3:M10")
   
    n = 3
    For j = 3 To 6                                                  '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

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread