Hallo, guten Abend
ich bin auf der Suche nach einem Code, der mir für einen Datenbestand den größten/kleinsten, zweitgrößten/zweitkleinsten Wert farbig markiert. Die Formeln, die ich pro Zelle verwenden will, sind die folgenden
Größter/Kleinster Wert
Formula Is =(F5=MAX($F$5:$F$20))*(COUNT($F$5:$F$20)>0)
Formula Is =(F5=MIN($F$5:$F$20))*(COUNT($F$5:$F$20)>0)
Interior.ColorIndex = 43
Interior.ColorIndex = 3
Zweitgrößter/Zweitkleinster Wert
Formula Is =F5=LARGE($F$5:$F$20;2)
Formula Is =F5=SMALL($F$5:$F$20;2)
Interior.ColorIndex = 40
Interior.ColorIndex = 5
Realisieren möchte ich das mit dem folgenden teils begonnenen Code. Mir geht es jetzt um die Einbindung der oben geschriebenen Formel in die drei aufgeführten Datenbereiche (in denen stehen alle prozentuale Veränderungen)
*******************************************************
Private Sub FX_Rate_Live_Change(ByVal Target As Excel.Range)
'Bedingte Formatierung der Zellen mit der höchsten/zweithöchsten/kleinsten/zweitkleinsten
'prozentualen Veränderung. Die Anpassung der Formatierung erfolgt dynamisch mit jedem Wechsel
'der Inhalte des Worksheet.
Dim DatenBereich1 As Range
Dim DatenBereich2 As Range
Dim DatenBereich3 As Range
Dim DatenZelle As Range
'Bereiche mit den prozentualen Veränderungen
Set DatenBereich1 = Range("F5:F20")
Set DatenBereich2 = Range("F22:F36")
Set DatenBereich3 = Range("N5:N20")
For Each DatenZelle In Range(Target.Address)
If Not Intersect(DatenZelle, DatenBereich1) Is Nothing Then
End Sub
*******************************************************
Wäre riesig, wenn mir da jemand helfen können. Ich habe zwar schon mehrere Möglichkeiten in anderen Tabellen gesehen (Select Case), aber keine hat so richtig einen Anstoss für die Formeleinbindung gegeben.
Besten Dank im voraus & Gruß
Ralph