ich habe immer noch ein problem mit meiner Torjäger-Tabelle.
In dieser möchte ich von 18 Leuten die besten drei anzeigen lassen.
Funktioniert auch wunderbar, allerdings bekomme ich eine Fehlermeldung, sobald zwei Spieler die gleiche Anzahl an Toren haben!
Hier mein Code:
----code anfang
Sub topwertfinden()
Dim wert1, wert2, wert3 As Single
Dim reihe1, reihe2, reihe3 As Integer
Dim ber As Range
Sheets("tabelle1").Activate
Set ber = Range("Y2:Y19")
wert1 = Application.WorksheetFunction.Large(ber, 1)
wert2 = Application.WorksheetFunction.Large(ber, 2)
wert3 = Application.WorksheetFunction.Large(ber, 3)
For Each zellen In ber
If zellen.Value = wert1 Then
reihe1 = zellen.Row
Else
If zellen.Value = wert2 Then
reihe2 = zellen.Row
Else
If zellen.Value = wert3 Then
reihe3 = zellen.Row
End If
End If
End If
Next
MsgBox Cells(reihe1, 1).Value & " hat " & wert1 & " Tore" & vbCr & Cells(reihe2, 1).Value & " hat " & wert2 & " Tore" & vbCr & Cells(reihe3, 1).Value & " hat " & wert3 & " Tore"
End Sub
----code ende
Vielleicht habt ihr ja einen lösungsvorschlag?
Danke
Hansi