Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.12.2012 13:48:55 |
Julius |
|
|
|
17.12.2012 13:56:01 |
Gast65804 |
|
|
|
17.12.2012 15:30:20 |
Gast4756 |
|
|
|
17.12.2012 15:40:07 |
Gast37218 |
|
|
|
17.12.2012 15:52:45 |
Gast75381 |
|
|
|
17.12.2012 16:05:33 |
Gast48561 |
|
|
|
17.12.2012 16:14:06 |
Gast77977 |
|
|
|
17.12.2012 16:18:00 |
Gast23026 |
|
|
|
17.12.2012 16:29:26 |
Gast77983 |
|
|
|
17.12.2012 16:42:04 |
Gast63477 |
|
|
|
17.12.2012 16:42:33 |
Gast66572 |
|
|
|
17.12.2012 17:19:16 |
schokobons |
|
|
Max Wert Ermittlung |
17.12.2012 17:20:57 |
Gast37695 |
|
|
|
17.12.2012 17:45:17 |
Gast24186 |
|
|
|
18.12.2012 10:13:12 |
schokobons |
|
|
|
18.12.2012 10:34:08 |
schokobons |
|
|
|
18.12.2012 11:03:23 |
Gast264 |
|
|
|
18.12.2012 11:05:08 |
Gast85912 |
|
|
|
18.12.2012 12:35:31 |
schokobons |
|
|
|
18.12.2012 14:07:53 |
schokobons |
|
|
|
18.12.2012 19:47:46 |
Gast22026 |
|
|
|
19.12.2012 09:59:50 |
schokobons |
|
|
Von:
Gast37695 |
Datum:
17.12.2012 17:20:57 |
Views:
1352 |
Rating:
|
Antwort:
|
Thema:
Max Wert Ermittlung |
Hallo
Um den höchsten Punktanzahl zu kriegen würde ich dieses Verfahren vorschlagen:
Es geht darum, dass die Zahlen miteinander verglichen werden und der Reihe nach sortiert werden das heisst die Zahlen werden aufsteigend sortiert.
Nun habe ich es so gemacht, dass der letzter Index den hoechsten Wert beinhaltet.
Private Sub CommandButton1_Click()
Dim Zahlenarray(0 To 3), maxWert, hoechsterIndex As Integer
hoechsterIndex = UBound(Zahlenarray)
Zahlenarray(0) = 2
Zahlenarray(1) = 22
Zahlenarray(2) = 3
Zahlenarray(3) = 2000
For i = 0 To hoechsterIndex
For j = 0 To hoechsterIndex
If Zahlenarray(i) < Zahlenarray(j) Then
tmp = Zahlenarray(i)
Zahlenarray(i) = Zahlenarray(j)
Zahlenarray(j) = tmp
End If
Next
Next
maxWert = Zahlenarray(hoechsterIndex)
MsgBox ("Die hoechste Punktzahl beträgt: " & maxWert)
End Sub
_______________________________________________
schokobons
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
17.12.2012 13:48:55 |
Julius |
|
|
|
17.12.2012 13:56:01 |
Gast65804 |
|
|
|
17.12.2012 15:30:20 |
Gast4756 |
|
|
|
17.12.2012 15:40:07 |
Gast37218 |
|
|
|
17.12.2012 15:52:45 |
Gast75381 |
|
|
|
17.12.2012 16:05:33 |
Gast48561 |
|
|
|
17.12.2012 16:14:06 |
Gast77977 |
|
|
|
17.12.2012 16:18:00 |
Gast23026 |
|
|
|
17.12.2012 16:29:26 |
Gast77983 |
|
|
|
17.12.2012 16:42:04 |
Gast63477 |
|
|
|
17.12.2012 16:42:33 |
Gast66572 |
|
|
|
17.12.2012 17:19:16 |
schokobons |
|
|
Max Wert Ermittlung |
17.12.2012 17:20:57 |
Gast37695 |
|
|
|
17.12.2012 17:45:17 |
Gast24186 |
|
|
|
18.12.2012 10:13:12 |
schokobons |
|
|
|
18.12.2012 10:34:08 |
schokobons |
|
|
|
18.12.2012 11:03:23 |
Gast264 |
|
|
|
18.12.2012 11:05:08 |
Gast85912 |
|
|
|
18.12.2012 12:35:31 |
schokobons |
|
|
|
18.12.2012 14:07:53 |
schokobons |
|
|
|
18.12.2012 19:47:46 |
Gast22026 |
|
|
|
19.12.2012 09:59:50 |
schokobons |
|
|