Private Sub winner()
Dim Zahlenarray(0 To 3, 0 To 1) As Variant
Dim kleinsterIndex, hoechsterIndex, hoechstePunktzahl As Integer
Dim winnteam As String
kleinsterIndex = LBound(Zahlenarray)
hoechsterIndex = UBound(Zahlenarray)
Zahlenarray(0, 0) = "Team1"
Zahlenarray(0, 1) = 2
Zahlenarray(1, 0) = "Team2"
Zahlenarray(1, 1) = 502
Zahlenarray(2, 0) = "Team3"
Zahlenarray(2, 1) = 10
Zahlenarray(3, 0) = "Team4"
Zahlenarray(3, 1) = 60
For i = kleinsterIndex To hoechsterIndex
For j = kleinsterIndex To hoechsterIndex
If Zahlenarray(i, 1) < Zahlenarray(j, 1) Then
tmp1 = Zahlenarray(i, 1)
tmp2 = Zahlenarray(i, 0)
Zahlenarray(i, 1) = Zahlenarray(j, 1)
Zahlenarray(i, 0) = Zahlenarray(j, 0)
Zahlenarray(j, 1) = tmp1
Zahlenarray(j, 0) = tmp2
End If
Next
Next
winnteam = Zahlenarray(hoechsterIndex, 0)
hoechstePunktzahl = Zahlenarray(hoechsterIndex, 1)
MsgBox ("Das Team, das gewonnen hat heisst: " & winnteam & " und hat eine Punktzahl von " _
& hoechstePunktzahl & " erreicht.")
End Sub