Thema Datum  Von Nutzer Rating
Antwort
03.04.2017 14:28:29 Mane
Solved
03.04.2017 16:13:35 Gast72196
NotSolved
03.04.2017 16:18:38 Gast34464
NotSolved
Blau Rang
 03.04.2017 16:48:55 Gast80249
*****
Solved
03.04.2017 17:54:08 Gast3944
NotSolved

Ansicht des Beitrags:
Von:
Gast80249		 Datum:
03.04.2017 16:48:55		 Views:
618		 Rating:
     
Antwort:
 Nein
Thema:
Rang

HIer mal eine Variante (theoretisch).

Dim ergebnis(20)  'für die Ergebnisse
Dim durchlauf As Long
Dim wert As Long
Dim top3(3) '1 der größte 2 der zweitgrößte
Dim verbraucht(3)

ergebnis(1) = a1 + a2
ergebnis(2) = b1 + b2
'usw bis 20

For durchlauf = 1 To 3
    For wert = 1 To 20
        If ergebnis(wert) > top3(durchlauf) And wert <> verbraucht(1) And wert <> verbraucht(2) And wert <> verbraucht(3) Then
        'in 3 Durchläufen werden die 3 hächsten werte ermittelt
        'die dabei benutzten arrayeinträge werden in verbraucht zwichengespeichert, damit sie in den nächsten durchläufen nicht mehr dabei sind
            top3(durchlauf) = ergebnis(wert)
            verbraucht(durchlauf) = wert
        End If
    Next wert
Next durchlauf

Dazu ein Array Ergebnis anlegen und jedem eintrag eines deiner Ergebnisse zuweisen. Habe es nur für die ersten 2 angedeutet. In der SChleife werden dann die höchsten Werte ermittelt und in top3 gespeichert. Das Array dann weiter nutzen. VG

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.04.2017 14:28:29 Mane
Solved
03.04.2017 16:13:35 Gast72196
NotSolved
03.04.2017 16:18:38 Gast34464
NotSolved
Blau Rang
 03.04.2017 16:48:55 Gast80249
*****
Solved
03.04.2017 17:54:08 Gast3944
NotSolved