Public Sub Fakultätenfinder()
Dim max As Integer
Dim i As Integer
Dim lieblingsfakultaet As Integer
Dim antwort As String
Dim prozentsatzLLF As Single
Dim maximalePunkte(1 To 14) As Integer
max = 0
i = 1
lieblingsfakultaet = 0
maximalePunkte(1) = 100
maximalePunkte(2) = 100
maximalePunkte(3) = 100
maximalePunkte(4) = 100
maximalePunkte(5) = 100
maximalePunkte(6) = 100
maximalePunkte(7) = 100
maximalePunkte(8) = 100
maximalePunkte(9) = 100
maximalePunkte(10) = 100
maximalePunkte(11) = 100
maximalePunkte(12) = 100
maximalePunkte(13) = 100
maximalePunkte(14) = 100
UserForm1.Show
MsgBox (zaehler(1) & "und" & zaehler(2) & "und" & zaehler(3))
Do
If zaehler(i) > max Then
max = zaehler(i)
lieblingsfakultaet = i
i = i + 1
Else: i = i + 1
End If
Loop Until i = 15
i = 1
MsgBox ("Prüfung: Maximum liegt bei " & max)
Do
If zaehler(i) = max Then
prozentsatzLLF = (zaehler(i) / maximalePunkte(i))
i = 15
Else: i = i + 1
End If
Loop Until i = 15
MsgBox (" Der Prozentsatz der Übereinstimmung beträgt " & prozentsatzLLF)
If lieblingsfakultaet = 0 Or UserForm1.CommandButton2.Enabled = True Or UserForm2.CommandButton2.Enabled = True Or UserForm3.CommandButton2.Enabled = True Then
antwort = InputBox("Wollen Sie den Test neu starten? ja/nein")
If antwort = "ja" Or antwort = "Ja" Or antwort = "j" Or antwort = "J" Then
Call Fakultätenfinder
End If
Else: MsgBox ("Ihre beste Wahl sich umzuschauen wäre bei der " & lieblingsfakultaet & ". Fakultät. Sie haben mit dieser " & max & " Überschneidungspunkte")
End If
End Sub