Excel 2016 - Makros nutzen

[Hellseeker1332]

Hey Leute, ich benötige leider etwas Hilfe im Bereich Makros:

Zum ersten wollte ich erst mal eine Punkteverteilung im VBA Editor eingeben, habe aber vergessen wie es geht.
(Hatte ich schon mal, aber die Dateien sind futsch, weil die Festplatte futsch is )

Ganz einfach eigentlich:

Punkteverteilung 01. = 25
Punkteverteilung 02. = 18
Punkteverteilung 03. = 15
Punkteverteilung 04. = 12
Punkteverteilung 05. = 10
Punkteverteilung 06. = 08
Punkteverteilung 07. = 06
Punkteverteilung 08. = 04
Punkteverteilung 09. = 02
Punkteverteilung 10. = 01
Rest = 0

Hab aber leider vergessen was ich am Anfang und am Ende eingeben muss.

 

[Snooty]

Ich weiß nicht so recht, was du genau machen willst - und wozu du da ein Makro brauchst. Willst du so eine Art Notenverteilung? Damit du in einer Zelle die Punkte eingeben kannst und dann angezeigt wird, welche Note das wäre?

 

[Hellseeker1332]

Ist nur für ein F1-Tippspiel

Hab da schon genug mit der "klassischen" Variante gemacht.
Wollte (und hatte ich ja auch schon mal, wie erwähnt) die Endergebnisse in einer Gessmtpunktzahl (F1 System)
machen
Deshalb 1. = 25 (Punkte) usw

 

[Snooty]

Sorry, aber ich weiß immer noch nicht, was du eigentlich machen willst.

Eine Eingabemaske in Excel um die Punkte einzutragen (die dann irgendwo in einer Tabelle gespeichert werden o.ä.)?

 

[Hellseeker1332]

Wenn das so heißt.
Sorry, kenne mich da noch nicht genug aus, wie was heißt.

In der rosa/weisen Spalte waren Makros aktiv.

Also Makro mit dem genannten System.
Und in einer der Zellen hab ich dann nur noch =Z5;Platzierung eingeben müssen.
So ungefähr.^^


Edit.
Um das ganze etwas anders zu veranschaulichen:
Das Tippspiel setzt sich aus den Faktoren Qualifying (Schnellste Runde, Fahrer) Rennegebnis (Top-10), so wie der schnellsten Rennrunde zusammen.
Bis 2014 wurde immer alle gesamt erzielten Punkten addiert.

So kam z.B.
"Bernd" auf 22
"Achim" auf 28 Punkte.
Und diese wurden dann eben der Saison-Gesamtwertung addiert (gelb)

2015 führten wir dann eine neue alternative Punkteverteilung ein, die sich nur nach dem alten Resultat (GP Gesamtwertung / braun) orientierte ...
Also Achim wäre hier 1. und würde 25pkt gutgeschrieben bekommen.

Ich hatte dafür irgend eine Programmiersprache für den VBA-Editor verwendet.

Sodass eben z.B. ="Punkteverteilung";A5, eingegeben in einer Zelle gereicht hatte, dass das Ergebnis direkt geklappt hatte.

 

[simpsonsfan]

Ich werde aus dem ganzen auch nicht richtig schlau.
Vielleicht hattet ihr eine eigene Funktion definert, die aus der Platzierung die entsprechende Punktzahl ausgibt.
Das geht, indem du im VBA-Editor in ein neues Modul bspw. folgendes einfügst:

Function PUNKTE(platzierung As Integer)

Select Case platzierung
Case 1: PUNKTE = 25
Case 2: PUNKTE = 18
Case 3: PUNKTE = 15
Case 4: PUNKTE = 12
Case 5: PUNKTE = 10
Case 6: PUNKTE = 8
Case 7: PUNKTE = 6
Case 8: PUNKTE = 4
Case 9: PUNKTE = 2
Case 10: PUNKTE = 1
Case Else: PUNKTE = 0
End Select
End Function

Dann kannst du in den Tabellen mittels "=PUNKTE(7)" bspw. die Punkte für den Siebtplatzierten ausgeben lassen. Wer welche Platzierung hat, wäre in dem Beispiel dann schon bestimmt worden, etwa mit "kgrösste" oder ähnlichem. Alternativ ließe sich das natürlich auch alles in VBA machen.

 

[Hellseeker1332]

Ich werde aus dem ganzen auch nicht richtig schlau.
Vielleicht hattet ihr eine eigene Funktion definert, die aus der Platzierung die entsprechende Punktzahl ausgibt.
Das geht, indem du im VBA-Editor in ein neues Modul bspw. folgendes einfügst:

Function PUNKTE(platzierung As Integer)

Select Case platzierung
Case 1: PUNKTE = 25
Case 2: PUNKTE = 18
Case 3: PUNKTE = 15
Case 4: PUNKTE = 12
Case 5: PUNKTE = 10
Case 6: PUNKTE = 8
Case 7: PUNKTE = 6
Case 8: PUNKTE = 4
Case 9: PUNKTE = 2
Case 10: PUNKTE = 1
Case Else: PUNKTE = 0
End Select
End Function

Dann kannst du in den Tabellen mittels "=PUNKTE(7)" bspw. die Punkte für den Siebtplatzierten ausgeben lassen. Wer welche Platzierung hat, wäre in dem Beispiel dann schon bestimmt worden, etwa mit "kgrösste" oder ähnlichem. Alternativ ließe sich das natürlich auch alles in VBA machen.

Vielen Dank.
Genau danach sah das ganze aus!

Melde mich noch mal, wenn es geklappt hat!
(Wenn nicht sowieso )

Das ich mir die Eingabe von "Function xy (platzierung As Integer)"
So wie "Case Else: x = 0" und "End Select End Function" nicht merken konnte ...PEINLICH.