Größten Wert markieren

Question

Hallo,

ich habe mit
x = Application.WorksheetFunction.Max(Range("D49:D" & Cells(Rows.Count, 4).End(xlUp).Row))

den größten Wert einer Datenreihe bestimmt. Jetzt will ich ihn auch farbig markieren, brauch aber die Adresse dazu. Kriegt man das mit der obigen Funktion irgendwie hin oder muss ich dazu eine neue Schleife durchlaufen lassen?
Danke für Euren Tipp!
Gruß Andreas

Answer 1

Halo Andreas,
ist das mit einer bedingten Formatierung nicht eine einfachere Lösung?

=$D$49:$D$60000

Gruß
fedjo

Answer 2

Hallo Andreas,

komplizierter bring ich's nicht :-))

Option Explicit

Sub test()
Dim dblX As Double
dblX = WorksheetFunction.Max(Range("D49:D" & Cells(Rows.Count, 4).End(xlUp).Row))
Range("D" & WorksheetFunction _
.Match(dblX, Range("D49:D" & Cells(Rows.Count, 4).End(xlUp).Row), 0) + 48).Font.ColorIndex = 3
End Sub

Gruß
Rainer

Answer 3

Hallo,
Da sich die Anzahl der Datensätze ständig ändert ist die bedingte Formatierung schwierig - trotzdem Danke für den Tipp.

Die Formel von dir, Rainer, passt perfekt und löst mein Problem suuuuper!! Ist doch nicht kompliziert, sondern elegant und spart mir wieder eine Schleife!!!
Vielen Dank!!
Gruß Andreas