|
Moin moin,
folgende Aufgabenstellung:
Ich bin Leichtathletik-Trainer und habe u.a. eine Trainingsgruppe, bestehend aus x Läufern (x ist veränderlich). Aus diesen x Läufern nehmen wöchentlich unregelmäßig y (aus x) Läufer an einem Trainingslauf teil. Je nach Platzierung resultiert pro Läufer pro Lauf eine gewisse Punktzahl.
Aus den jeweiligen Trainingsläufen soll eine Gesamttabelle resultieren; diese soll also nach jedem weiteren Lauf aktualisiert werden. Es nehmen jeweils unterschiedlich viele Läufer an den jewiligen Läufen teil.
VBA ist mir leider wenig vertraut. In Fortran (kennt das noch jemand?) würde die hierzu erforderliche Routine in etwa so aussehen:
subroutine summe ( name1,punkte1,n1,name2,punkte2,n2 )
C *****************************************************
C
dimension name1(1),punkte1(1),name2(1),punkte2(1)
C
do 200 i = 1 , n1
do 100 j = 1 , n2
if ( name1(i) .eq. name2(j) ) then
punkte2(j) = punkte2(j) + punkte1(i)
go to 200
end if
100 continue
C
n2 = n2 + 1
name2(n2) = name1(i)
punkte2(n2) = punkte1(i)
200 continue
C
return
end
Hat vielleicht jemand eine Idee, wie dies in VBA zu übersetzen wäre oder ggf. eine eigene Lösung für die Aufgabenstellung parat?
Viele Grüße
Holger
|