Zeiten mit kürzester Differenz markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub fen() '09:48 07:58 06:59 07:59 07:39 Dim rng As Range Range("B2:F2").Copy Cells(2, "I") Range("I2:M2").NumberFormat = "General" Cells(3, "H").Resize(5) = WorksheetFunction.Transpose(Range("B2:F2")) With Range("I3:M7") .Formula = "=I$2-$H3" .Value = .Value For Each c In .Cells If c.Value = 0 Then Range(c.Address) = 9999 Else Range(c.Address) = Abs(c.Value) End If Next c Mm = WorksheetFunction.Min(.Cells) Debug.Print Mm Set rng = .Find(Mm) Debug.Print rng.Row, rng.Column End With End Sub

Sub V2() Dim Mm As Double Dim R As Integer, Sp1 As Integer, Sp2 As Integer R = 2 'hier die Schleife über viele cars Mm = 9999 For i = 2 To 5 For j = 3 To 6 If i j Then T = Abs(Cells(R, i) - Cells(R, j)) If T

Hallo Werner,
es kann natürlich identische Rundenzeiten geben und vermutlich können auch mal mehr als zwei oder drei gleiche Rundenzeiten auftreten. Insbesondere dann wenn es insgesamt sogar 21 Runden werden (glücklicherweise werden die Rundenzeiten elektronisch gemessen und in die Tabelle geschrieben!!). Und ja, dann sollten die gleichen Zeiten natürlich auch markiert werden. Die Markierung habe ich mit der bed. Formatierung unter Zuhilfenahme von Daniels Formelergebnissen (in Hilfsspalten) schon gemacht. Schöner wäre es, dies direkt mit der bed. Formatierung zu machen. Und weiter gedacht wäre es auch noch interessant die geringsten Abstände zwischen den Rundenzeiten der bis zu 6 Autos zu ermitteln.
Die Excel-Version sollte größer 2007 sein.
Hast Du eine andere Lösung parat?
Gruß
Jochen

Hallo Jochen,
... für 21 Runden (also bis Spalte V) mit folgender bedingter Formatierung für $B$3:$V$8.
Die benannte Formel Diff muss bei aktivierter Zelle B3 definiert werden und kann dann so in einem beliebigen Tabellenblatt im gleichen Adressbereich eingesetzt werden. Einer Zelle zur Ermittlung der Differenzzeit braucht es somit nicht, diese kann aber bei Bedarf mit =Diff in der jeweiligen Zeile ausgegeben werden.
Die bedingte Formatierungsformel ist möglicherweise noch optimierbar aber sie tut es auch so.
Bei evtl. Rückfragen dazu kann ich wahrscheinlich erst am Nachmittag antworten.

	A	B	C	D	E	F
1		Runde 1	Runde 2	Runde 3	Runde 4	Runde 5
2
3	Car1	00:09:48	00:07:58	00:06:59	00:07:59	00:07:57
4	Car2	00:09:43	00:07:59	00:06:55	00:09:46	00:06:59
5	Car3	00:07:58	00:06:59	00:07:59	00:07:59	00:06:55
6	Car4
7	Car5
8	Car6	00:09:48	00:08:48	00:08:48	00:09:46	00:08:48

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
B3	1. / Formel ist =(ISTZAHL(VERGLEICH(RUNDEN(B3+Diff;7);RUNDEN($B3:$V3;7);))+ISTZAHL(VERGLEICH(RUNDEN(B3-Diff;7);RUNDEN($B3:$V3;7);)))*((Diff>0)+(ZÄHLENWENN($B3:$V3;B3)>1))	Abc

Namen in Formeln

Zelle	Name	Bezieht sich auf
B3	Diff	=AGGREGAT(15;6;KGRÖSSTE(!$B3:$V3;ZEILE(!A$1:A$20))-KGRÖSSTE(!$B3:$V3;ZEILE(!A$2:A$21));1)

Namen verstehen

Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

Zeiten mit kürzester Differenz markieren

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread