Guten Morgen an das Team vom Forum,
Habe ein Problem in VBA und ich weiß nicht, was hier ändern müsste, dass dieser Fehler behoben wird. Geht um Rückname einer Eingabe. Vielleicht kann mir jemand das erklären Bzw. den Code ändern.
Das ist der Code:
Public arrRueck(5) As Long
Sub Wurf_loeschen()
Dim antwort
antwort = MsgBox("Soll der letzte Wurf rückgänging gemacht werden?", 36, "Rückgängig machen?")
If antwort = vbNo Then Exit Sub
'Anzahl Würfe verringern
Cells(arrRueck(0), arrRueck(1)) = Cells(arrRueck(0), arrRueck(1)).Value - 1 das ist der Fehler
'Anzahl Doppel verringern
If arrRueck(5) = 2 Then Cells(11, arrRueck(2) + 1) = Cells(11, arrRueck(2) + 1).Value - 1
'Anzahl Triple erhöhen
If arrRueck(5) = 3 Then Cells(11, arrRueck(2) + 2) = Cells(11, arrRueck(2) + 2).Value - 1
'Würfe eintragen
Cells(arrRueck(3), arrRueck(4)).ClearContents
End Sub
Würde mich freuen wenn jemand eine Lösung zukommen lassen würde.
Gruß Adde
