Schleife, welche Schleife?
If doc.Frage1(0)= "A" or doc.Frage1(0)= "D" then
a=a+1
end if
If doc.Frage1(0)= "A" and doc.Frage1(0)= "D" then
a=a+2 'hier möchte ich 2 mal zählen, weil beide Antworten richtig sind
end if
If doc.Frage1(0)= "A" and doc.Frage1(0)= "D" then
a=a+2 'hier möchte ich 2 mal zählen, weil beide Antworten richtig sind
end if
Set doc = Source.document
Dim a As Integer
Forall x In doc.Frage1
If x = "A" Then
a = a+ 1
End If
If x = "B" Then
a = a+ 1
End If
If x = "C" Then
a = a+ 1
End If
If x = "D" Then
a = a+ 1
End If
End Forall
awert = doc.GetItemValue("Feld")
und dann gleich vor der if Bedingung mit IsArray prüfen ob es sich überhaupt um ein Mehrfachwertefeld handelt.