Matrix und Formel

Antonio · 2021-12-13T11:58:02+00:00

Hallo, ich suche eine Möglichkeit anhand von Daten (Bünde) die respektive Töne und Midi zu schreiben. Im Netz habe Akkorden für die Gitarre, als nummerierung für die Bünde, gefunden. Ich habe ein Bsp. in der Mappe (rot markiert). Das heißt: im 8. Bund wird angefangen: 8=1 9=2 10=3 usw. Links sind die zwei Matrix für die Töne und die Midi, es wird nach eine Formel gesucht in Z8 und AN8 zum runterziehen. Ich hoffe ihr habt mich verstanden, wenn nicht bitte Fragen stellen. Vielen Dank im Voraus Antonio https://www.herber.de/bbs/user/149773.xlsx

Hallo
Wenn du in eine Zelle in AM:AR oder AT:AY klickst, läuft das Makro ab
Dazu bitte einmal...
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- den Code rechts reinkopieren


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RNGA As Range, RNGB As Range, RNG1 As Range, RNG2 As Range
Dim Sp As Integer, Z As Integer, i As Integer, Such As Variant
Set RNGA = Range("AM:AR")
Set RNGB = Range("AT:AY")
Set RNG1 = Range("B3:V8")
Set RNG2 = Range("B11:V16")
If Not Intersect(Union(RNGA, RNGB), Target) Is Nothing Then
If Target.Rows.Count > 1 Then
MsgBox "Nur eine Zeile"
Exit Sub
End If
Z = Target.Row
'Reset
Union(RNG1, RNG2).Interior.Pattern = xlNone
' Suchen in Midi
For i = 6 To 1 Step -1
Such = Intersect(RNGA.Rows(Z), RNGA.Columns(6 - i + 1)).Value
If Such  "x" And Such  "" Then
Sp = WorksheetFunction.Match(Such, RNG2.Rows(i), 0)
With Intersect(RNG2, RNG2.Rows(i), RNG2.Columns(Sp))
.Interior.Color = 65535
End With
End If
Next
' Suchen in Töne
For i = 6 To 1 Step -1
Such = Intersect(RNGB.Rows(Z), RNGB.Columns(6 - i + 1)).Value
If Such  "x" And Such  "" Then
Sp = WorksheetFunction.Match(Such, RNG1.Rows(i), 0)
With Intersect(RNG1, RNG1.Rows(i), RNG1.Columns(Sp))
.Interior.Color = 65535
End With
End If
Next
End If
End Sub

LG UweD

Hallo Werner,
ich sende dir die Mappe mit der entgültige Datenstruktur.
https://www.herber.de/bbs/user/149838.xlsm
Deine neue Formel brauche ich nicht weil die Fixwerte schon vorhanden sind.
Ich versuche erneut dir zu erklären wo das Problem liegt:
Das Problem sind die "0".
Am Bsp.: Csus2 Zeile "3"
Wenn in "BB" eine "1" steht, und in Z:AE auch eine "1" dann werden die Werte richtig dargestellt, Spalte "C"
Wenn in "BB" eine "1" steht, und in Z:AE eine "0" dann werden die Werte auch richtig dargestellt, Spalte "B"
Aber, am Bsp.: Csus2 Zeile "6"
Wenn in "BB" eine "7" steht, und in Z:AE eine "1", dann wird der "1" als "7" interpretiert und die Markierung erfolgt richtig ab Spalte "I"
Wenn in "BB" eine "7" steht, und in Z:AE eine "0", dann wird der "0" als "6" interpretiert ("0" ist vor "1" - "6" ist vor "7") und die Markierung erfolgt FALSCH ab Spalte "H"
Weil, wenn 1 = 7 dann logischerweise 0 = 6 und hier liegt der Hund begraben.
"0" ist IMMER Spalte "B"
Vielleicht reicht eine Ergänzung in deiner Formel (z.B.: "WENN "0" dann Spalte "B")
Wie in Zeile "9", wenn der "1" als "3" interpretiert wird ( laut "BB" ) dann soll der "0" nicht Spalte "D" sondern Spalte "B".
Daher der Fehler in Zeile "6", Spalte "H" ist ein "G#" aber der Akkord Csus2 hat kein "G#" sondern ein "G", also wenn der "0" richtig ausgewertet wird, wäre dann ein "D" Spalte "B" und das ist richtig.
Es gibt sehr viele solche Fehler bei ca. 4000 Sätze.
Ich hoffe das wenn du in aller Ruhe dieses ließt das dir klar ist was ich meine.
LG
Antonio

Forumthread: Matrix und Formel

39
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Matrix und Formel

Forumthread: Matrix und Formel

39 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

39
Beiträge zum Forumthread

Beiträge zu diesem Forumthread