AW: nun solltest Du noch kurz erklären ...
28.02.2018 12:46:04
Antonio
Erklärung:
in Tabelle6, gelbe Felder, ein Akkord aussuchen zum Bsp.: C maj
umschalten auf Tabelle4, hier sieht man die töne vom Akkord grün hinterfärbt.
In der erste Matrix kann man die Felder ancklicken die die grüne gefärbt Zellen der andere Matrix entsprechen. Bei jedem klick werden SetPoint in der Tabelle übernommen, das sind die Position der SHAPES auf dem Griffbrett (das VBA Projekt ist noch nicht im Anhang, werde wenn fertig weiter geben).
Was möchte ich:
ich möchte nur mit der zweite Matrix arbeiten wollen,
da jede Zelle der zweite Matrix Formeln enthalten weis ich nicht wie die Verbindung zu A1:A86 mache soll.
In Tabelle4 Code einfügen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("A4") = Target.Address
'ActiveCell.Select
If Not Intersect(Target, Range("T1:AF6")) Is Nothing Then
Dim rngZeile As Range, rngSpalte As Range
Dim intZeile As Integer
Set rngZeile = Worksheets("Tabelle4").Range("B1")
Set rngSpalte = Worksheets("Tabelle4").Range("B2")
' Fehler abfangen
If Target.Cells.Count > 1 Then
MsgBox "Auswahl nicht eindeutig, mehrere Zellen selektiert"
Exit Sub
End If
If rngZeile = 12 And rngSpalte = 25 Then
MsgBox "Aus die Maus, kein Platz mehr"
Exit Sub
End If
' Zähler erhöhen
If rngZeile = 0 Then rngZeile = 9
If rngSpalte = 25 Then
rngZeile = rngZeile + 1
rngSpalte = 1
Else
rngSpalte = rngSpalte + 1
End If
' Daten übertragen
intZeile = Application.Match(Target, Columns(1), 0)
Range(Cells(rngZeile, rngSpalte * 2 + 7), Cells(rngZeile, rngSpalte * 2 + 8)) = _
Range(Cells(intZeile, 2), Cells(intZeile, 6)).Value
End If
End Sub