Laufzeitfehler
27.01.2022 17:37:26
B
nach einigen Durchläufen des unten stehenden Programms, bricht es auf einmal ab und zeigt Laufzeitfehler an. Woran liegt das?
Viele Grüße B
Sub Vokabeltest()
'Variabeln definieren
Dim Eingabe As String
Dim Kombination As Integer
Dim Sprache1 As String
Dim Sprache2 As String
Dim Sp1 As New Collection
Dim Sp2 As New Collection
Dim z As Integer, s1 As Integer, s2 As Integer
Dim Index As Integer
Dim Bewertung As String
Dim Fragetext As String
Dim Ende As Boolean
' Sprachkombination auswählen
Do
Eingabe = InputBox( _
"Bitte wählen Sie aus:" & vbCrLf & _
"(1) Deutsch - Englisch" & vbCrLf & _
"(2) Englisch- Deutsch", _
"Auswahl der Sprachkombination", 1)
If IsNumeric(Eingabe) Then
Kombination = Val(Eingabe)
Else
Kombination = 0
End If
Loop Until Kombination >= 1 And Kombination ""
Sp1.Add Cells(z, s1).Value
Sp2.Add Cells(z, s2).Value
z = z + 1
Loop
ThisWorkbook.Worksheets("Tabelle1").Activate
'Der Test
Do
'Zufällige Nummer
Index = WorksheetFunction.Round(Rnd * Sp1.Count, 0)
' Vorherige Frage bewerten
If Bewertung "" Then
Fragetext = Bewertung & vbCrLf
Else
Fragetext = ""
End If
'Frage
Fragetext = Fragetext & _
"Noch " & Sp1.Count & "Vokabeln" & _
"(Abbruch mit '0')" & vbCrLf & vbCrLf & _
Sprache1 & ": " & Sp1(Index) & vbCrLf & _
Sprache2 & ": "
Eingabe = InputBox(Fragetext, "Eingabe der Antwort")
'Antwort auswerten
If Eingabe = Sp2(Index) Then
Bewertung = "Richtig"
Sp1.Remove Index
Sp2.Remove Index
'Ende des Tests
If Sp1.Count