Hallo zusammen wer kann oder möchte mir bei Fehlermeldung im VBA helfen?
Das gelb markierte ist die Fehlermeldung.
Das ist das Makro.
'in dieses Array werden die Daten für die Rücknahme eines Wurfes geschrieben
'arrRueck(0) = Ergebniszeile
'arrRueck(1) = Ergebnisspalte
'arrRueck(2) = Zeile bei Rundenergebnis
'arrRueck(3) = Spalte bei Rundenergebnis
'arrRueck(4) = Ergebnis des Wurfes
'arrRueck(5) = Zeile in der die Anzahl der Würfe geschrieben wird
Public arrRueck(5) As Long
Sub Ruecknahme()
'Würfe reduzieren
If Cells(arrRueck(5), arrRueck(1)).Value > 0 Then Cells(arrRueck(5), arrRueck(1)).Value = Cells(arrRueck(5), arrRueck(1)).Value - 1
'Punktzahl im Gesamtergebis reduzieren
Cells(arrRueck(0), arrRueck(1)) = Cells(arrRueck(0), arrRueck(1)) - arrRueck(4)
'Punktzahl in Rundenübersicht reduzieren
Cells(arrRueck(2), arrRueck(3)) = Cells(arrRueck(2), arrRueck(3)) - arrRueck(4)
End Sub
Das ist für die Würfe der Einträge
'altes Ergebnis in Variable speichern
lngErgebnis = Cells(lngEZeile, rngSpiel.Column).Value
'Zeile für die Eintragung der Würfe festlegen
Select Case lngEZeile
Case Is = 5
lngWZeile = 31
Case Is = 12
lngWZeile = 32
Case Is = 19
lngWZeile = 33
End Select
'Zähler für Würfe um 1 erhöhen
Cells(lngWZeile, rngSpiel.Column) = Cells(lngWZeile, rngSpiel.Column) + 1
Gruß Adde
Habe Datei hochgeladen
http://supportnet.de/forum/?qa=blob&qa_blobid=2994345139294061428