Hallo und guten morgen an das Team
habe folgendes Problem:
Bei meinem Spiel funktioniert bis bis zur Runde 4 alles, doch sowie ich auf Runde 5 erhöhe, erscheint Laufzeitfehler"5" mit dem Hinweis Ungültiger Prozeduraufruf oder ungültiges Argument.
Runden werden mit Doppelklick in Zelle C1 erhöht. In den Zellen B4 bis F14 sind Zahlen eingetragen deren Punkte werden in den Zellen A18 bis I89 erfasst.
Die Anzahl der Punkte werden dann in den Zellen L5 bis AI5 für, bis zur 4 Runde übernommen.
Ab Runde 5 sollten dann in den Zellen L12 bis AI12 übernommen werden und Ab Runde 9 in den Zellen L19 bis AI19, wenn alles in Ordnung wäre und ab 5 nicht dieser Fehler angezeigt wird.
Die Würfe werden in den Zellen für Runde 1 bis Runde 4 in L31 bis AI 31, Runde 5 bis 8 in den den Zellen L32 bis AI32 und Runde 9 L33 bis AI33
Ich weis leider nicht was ich hier verändern muss hier wird der Fehler angezeigt
'Nun Zeile für Würfe suchen |
'dazu die Nr des Spiel herausfinden und damit Suchstring erstellen |
strSpiel = "Sp" & Right(Cells(lngEZeile - 3, lngSpalte), Len(Cells(lngEZeile - 3, lngSpalte).Value) - 6)
In der Hoffnung, das mir jemand eine Lösung geben oder erstellen kann.
sollte jemand die Liste benötigen kann ich sie gerne hochladen.
Lieben Gruß Adde
Die komplette Eingabe
'Nun Zeile für Würfe suchen
'dazu die Nr des Spiel herausfinden und damit Suchstring erstellen
strSpiel = "Sp" & Right(Cells(lngEZeile - 3, lngSpalte), Len(Cells(lngEZeile - 3, lngSpalte).Value) - 6)
'Zeile für Spiel suchen
For lngZeile = 18 To 89
If Cells(lngZeile, 1).Value = strSpiel Then
lngSZeile = lngZeile
Exit For
End If
Next lngZeile
|