---

Matrix_Excel.PNG

Hallo liebe Community,

bei VBA - Excel kenne ich mich ein wenig aus.
Stehe jetzt vor einem Problem, da  ich nicht weiß wie ich anfangen soll bzw. welcher Weg sinnvoll ist.

Aufgabe (Siehe Bild)
z.B.:
Wenn der OptionButton11 gedrückt wird, soll der Wert in der Zeile 7 und Reihe 4 um 1 erhöht werden. ....
Wenn der OptionButton22 gedrückt wird, soll der Wert in der Zeile 8 und Reihe 9 um 1 erhöht werden. ....

Es wurde eine UserForm mit OptionButton's erstellt und wenn
der OptionButton "Abrechnung" gedrückt wird, startet das Script unten.

Lösungsansätze von mir:

Code:

---

Dim Zeilen As Variant
Dim Zeile As Variant
Dim ReihnButtn As Variant
Dim ReihButt As Variant
Dim ButtZaehler As Integer

Zeilen = Array (7, 8, 9, 10, 11, 13,.....) ' Zeile, nicht durchgeaengig
ReihnButtn = Array(Array(4, 11), Array(9, 12), Array(14, 13), Array(19, 14), Array(24, 15), Array(29, 16) ' Reihe und Button
ButtZaehler = 0 ' Buttonzaehler
For Each Zeile IN Zeilen
   For Each ReihButt IN ReihnButtn
      OptButt = "OptionButton" & (ReihButt(1) + ButtZaehler)
      If Me(OptButt) = True Then
         Cells (Zeile, ReihButt(0)).Value = Cells (Zeile, ReihButt(0)).Value + 1
      End If
   Next
   ButtZaehler = ButtZaehler + 10
Next
(Code wurde noch nicht getestet)

---

Gibt es vielleich anderen Lösungsansetze oder Verbesserungen?

------------------
Grüße

Christian

[Diese Nachricht wurde von Christian01 am 07. Feb. 2019 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP