Hallo
Wie du willst du kannst meinen oder deinen Weg nehmen.
Mein Weg lautet wie folgt:
Private Sub winner()
Dim Zahlenarray(0 To 3, 0 To 1) As Variant 'zweidimensionaler Array
Dim kleinsterIndex, hoechsterIndex, hoechstePunktzahl As Integer
Dim winnteam As String ' Gewinnerteam
kleinsterIndex = LBound(Zahlenarray) 'kleinster Index des Arrays
hoechsterIndex = UBound(Zahlenarray) 'hoechster Index des Arrays
'zweidimensionaler Array fuellen
Zahlenarray(0, 0) = "Team1" ' Team1
Zahlenarray(0, 1) = 2
Zahlenarray(1, 0) = "Team2" ' Team2
Zahlenarray(1, 1) = 502
Zahlenarray(2, 0) = "Team3" ' Team3
Zahlenarray(2, 1) = 10
Zahlenarray(3, 0) = "Team4" ' Team4
Zahlenarray(3, 1) = 60
For i = kleinsterIndex To hoechsterIndex
For j = kleinsterIndex To hoechsterIndex
If Zahlenarray(i, 1) < Zahlenarray(j, 1) Then 'Zahlenvergleich
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
Bei Fragen stehe ich dir gerne zur Verfügung !
_______________________________________________________
schokobons
|