Ich habe eine Torjägerliste. In dieser sind 18 Spieler.
Momentan sind 8 Spiele gelaufen.
Jeder Spieler hat am Ende seiner Zeile eine Summe von Toren.
Ich möchte mit meinem Makro den momentanen Torschützenkönig mit Anzahl der Tore in einer MsgBox ausgeben.
Die Namen der Spieler stehen in dem Bereich Range("a2:a19")
Die Gesamttore jedes einzelnen Spieler sind in Range("k2:k19)
Die Aufsummierung der Tore eines Spielers erfolgt horizontal.
(ergo: spiel 1 = a7, spiel 2 = b7, spiel 3 = c7 ....summe in k7)
Ich kann mittels dem von mir momentan verwendetem Makro den Top- Wert herausfinden, allerdings ändert sich der Name des Spielers sobald ich eine Zeile zwischenfüge (Spiel 9, usw.)
...deswegen bringt mir der column -10 wert momentan nicht wirklich was, es sei denn man kann diesen dynamisch halten.
Dies ist mein momentaner Quellcode:
----------------------------------
Quellcode:
Sub topwertfinden()
Dim wert1 As Single
Dim ber As Range
Sheets("tabelle1").Activate
Set ber = Range("k2:k19")
wert1 = Application.WorksheetFunction.Large(ber, 1)
For Each zellen In ber
If zellen.Value = wert1 Then
MsgBox wert1 & Cells(zellen.Row, zellen.Column - 10)
end if
next
End Sub
--------------------------------
Nepumuk gab mir folgenden Tip:
Hallo Hansi,
ersetze die Zeile:
Set ber = Range("k2:k19")
durch diese Zeile:
Set ber = Range(Range("K2"), Selection.End(xlDown))
Gruß
Nepumuk
...allerdings zählt er mir dann K2 bis unten komplett zusammen, welches nicht Sinn und Zweck ist...(trotzdem danke dafür)
wäre toll wenn ihr noch ideen habt