Auswertung von Carrera Rundenzeiten

Guten Abend liebe Excel Gemeinde.
Ich hätte da mal was Tüftler.
Ich erstelle zurzeit eine oder besser gesagt mehrere Tabellen auf einem Tabellenblatt zur Auswertung von Carrera Rundenzeiten in Excel 2003.
Es gibt drei Probleme bei denen ich nicht weiter komme.
In der ersten Tabelle stehen oben die Namenskürzel der Fahrer (7 Teilnehmer),
Links Kalenderwoche bzw. Datum. Dort werden die Bestzeiten jedes Renntags eingetragen. Die Zellen mit den Namenskürzeln haben zur besseren Übersicht unterschiedliche Farben.
Die zweite Tabelle zeigt nun zum jeweiligen Fahrer die Position. Das funktioniert mit der RANG Funktion ganz gut ist dort dann aber noch nicht sortiert, soll auch so sein.
In der dritten Tabelle soll das Ergebnis nun Rangmäßig sortiert mit dem Namenskürzel und der Zeit dargestellt werden. Auch dass funzt im Prinzip ganz gut mit der Ausnahme, und da kommt jetzt
Problem Nr 1:
Bei Zeitgleichheit wird nur einer der zeitgleichen Fahrer angezeigt und der nächste Platz bleibt dann leer.
Problem Nr 2:
Für die Platzierungen werden Punkte vergeben und anhand der Punkte wird dann wieder mit der RANG Funktion der aktuelle Saisonstand dargestellt.
Auch das klappt solange keine Punktgleichheit besteht. Für diesen Fall sollen die meisten Siege bzw. weiteren Platzierungen den Ausschlag geben.
Problem Nr 3
Für die dritte Tabelle wollte ich die Namenskürzel und Zeiten mit den gleichen Farben versehen die auch schon in Tabelle 1 und 2 für die Namen vergeben wurden.
Bedingte Formatierung funzt in XL 2003 jedoch nur mit maximal 3 Bedingungen, ich bräuchte aber 7. Geht da was mit VBA?
Ich hab die Datei mit Beispieldaten so versehen das die Probleme mit den Zeiten bzw. der Platzierungen vorhanden sind.
https://www.herber.de/bbs/user/142652.xls
Danke im voraus und
EXCELente Grüße
Willi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo Willi,
... aber zunächst danke für Deine Wünsche. Auch Dir ein gutes, gesundes neues Jahr 2021.
Folgende Formel in K68:
=SUMMENPRODUKT(K59:K65*$R59:$R65+((ZEILE($K$58)-ZEILE(K59:K65))^2*K59:K65)%%%)
und diese nach rechts ziehend kopieren.
Deine zusätzliche Rangermittlung in K69:Q69 kann entfallen in Deiner aktuellen Tabelle stehen immer die aktuellsten Daten durch die Formeln auch ohne VBA automatisch sortiert.
In C59 folgende: =WENN(ZEILE(C1)&gtANZAHL($68:$68);"";KGRÖSSTE(K$68:Q$68;ZEILE(C1)))
und in B59 folgende =WENN(C59="";"";INDEX($58:$58;VERGLEICH(C59;$68:$68;0)))
beide Formeln ziehend nach unten kopieren.
Übrigens in K59 hätte ich folgende Formel eingesetzt: =ZÄHLENWENN(K$3:K$54;ZEILE(K1))
(auf jeden Fall Deine " um die Zahlenwerte weggelassen, weil nicht nötig) und dieser Formelzelle das benutzerdefinierte Zahlenformat: 0;; und diese dann rechts und unten ziehend kopiert.
Gruß Werner
.. , - ...

Sub ZeitenErfassen Dim zelle As Range ActiveSheet.ShowDataForm For Each zelle In Range("S3.Af54") Application.ScreenUpdating = False With zelle Select Case .Value Case "AND" .Font.ColorIndex = 2 .Interior.ColorIndex = 3 Case "WIL" .Font.ColorIndex = 2 .Interior.ColorIndex = 10 Case "HAN" .Font.ColorIndex = 2 .Interior.ColorIndex = 41 Case "MAS" .Font.ColorIndex = 2 .Interior.ColorIndex = 1 Case "ATO" .Font.ColorIndex = 2 .Interior.ColorIndex = 45 Case "RAI" .Font.ColorIndex = 1 .Interior.ColorIndex = 6 Case "HAU" .Font.ColorIndex = 1 .Interior.ColorIndex = 40 Case "ATO" .Font.ColorIndex = 2 .Interior.ColorIndex = 45 Case Is = 0, "", " " .Font.ColorIndex = 0 .Interior.ColorIndex = xlNone Case Else .Font.ColorIndex = .offset(0, -1).Font.ColorIndex .Interior.ColorIndex = .offset(0, -1).Interior.ColorIndex End Select End With Application.ScreenUpdating = False Next End Sub

Beliebteste Forumthreads (12 Monate)

Auswertung von Carrera Rundenzeiten

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread