UBound
11.02.2023 15:29:16
Antonio
Ich versuche an die Variable "sp" ein Bereich der Tabelle zu übergeben.
Im Code ist an dieser Stelle:
For jj = 2 To UBound(sp)
Ubound mit eingebaut, der nach ein Datenfeld verlangt,
Ich habe im oberen Teil des Codes auch schon mit Select Case probiert, gelingt mir nicht.
Hier der Code:
Sub Pattern()
Call SplitTAB
With Worksheets("Neuer_Song")
If .Range("BI2") = "Bossa Nova" Then
sp = Range("BJ3:BJ10")
End If
If .Range("BI2") = "Swing" Then
sp = Range("BK3:BK10")
End If
sn = Cells(1, 2).Resize(500, 10) 'Resize, erhöt die Zeilen-Spaltenzahl von (1, 2) auf (60, 6)
' sp = Range("BJ3:BJ10") 'Muster Bereich
N = 32 ' 3 = Beginn Einfügezeile kann zB. 24 sein
' For j = 26 To 37 ' To 9 = Anzahl der Akkorde
For j = 32 To Cells(1, 61)
st = Split(sn(j, 5), ",") 'Akkordtöne splitten
sn(N, 6) = sn(j, 1)
N = N + 1 'Abstand der Musteritems in Spalte G(6)
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) '3 = Anzahl der Akkordzeichen von hinten
End If
N = N + 1
Next
Next
Cells(1, 2).Resize(500, 6) = sn
End With
End Sub
Da ich in der Tabelle viele Bereich habe, die sich aus den Namen unterscheiden,
Ich würde es gerne automatisieren und den Bereich an die Variable "sp" übergeben:
sp = Range("BJ3:BJ10") Ich bitte auf ein wenig Hilfe
LG Antonio