Tut mir ja auch leid aber hab wieder ein Problem:
Ich möchte aus diversen Zeilen die Top 3 Werte auslesen können.
Sollte soweit kein Problem darstellen, ist in dem Buch von Bernd Held als Makro auch gut beschrieben. Allerdings weiss ich leider nicht wie ich dem Wert allerdings noch "seinen" Namen zuweisen kann.
Beispiel: Es handelt sich um eine Torjägerauswertung. Dort soll herausgefunden werden welche drei Spieler die besten sind.
Die Zahlenwerte könnte ich mittels des von Bernd Held beschriebenen Makro herausfinden, allerdings lässt er eine MsgBox erscheinen in der dann folgendes steht:
Wert 1: xxx
Wert 2: xxx
Wert 3: xxx ...
Gibt es eine Möglichkeit dem Makro zu sagen, "Pass auf, statt Wert 1 schreibst du gleich den Spielernamen dazu"...
Hab ich mein Anliegen nicht plastisch rübergebracht?
Ich geb hier mal einen dezimierten Auszug aus seinem Quellcode:
Sub top3wertefinden()
dim wert1 as single
dim wert2 as single
dim wert3 as single
dim ber as range
sheets("tabelle1").activate
set ber = range ("d6:g12")
wert1=application.worksheetfunction.large(Ber, 1)
wert2=application.worksheetfunction.large(Ber, 2)
wert3=application.worksheetfunction.large(Ber, 3)
msgbox "Wert 1: " & wert1 Chr(13) &_
Wert 2: " & wert2 Chr(13) &_
Wert 3: " & wert3
end sub
...nun ist es doch der ganze makro-code geworden :-)