erstmal schönen Dank an Michel, der mir sehr, sehr geholfen hat, allerdings bekomme ich den Debug-Fehler nicht heraus.
Wie ihr vielleicht schon in meinem anderem Beitrag gelesen habt, versuche ich krampfhaft eine Torjägerauswertung in einer MsgBox hinzubekommmen.
Das hat auch dank Michel jetzt endlich funktioniert.
Allerdings kommt es zum Debug, sobald zwei Spieler die gleiche Toranzahl haben.
Hier mal der (fast komplett von Michel) erstellte Quellcode:
-------------------------------------------
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
-----------------------------------------
Könnt ihr mir vielleicht sagen, was ich ändern muss, wenn zwei, oder sogar drei die gleiche Anzahl an Toren haben? (sprich: Wert1=wert2=wert3 ?)
danke