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

.
...ich hab mir für die gewüschte Formatierung ein Makro gebastelt.


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

Das öffnet mir die Eingabemaske und führt nachdem
ich die Daten eingegeben hab die Formatierung durch.
Gruß
Willi

Auswertung von Carrera Rundenzeiten

Forumthread: Auswertung von Carrera Rundenzeiten

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial