Kleinsten Wert einfärben
29.07.2004 06:29:25
Mannfred W
Ich brauche mal wieder eine kleinen Schupps!Es soll immer der kleinste
Wert im Bereich D4:D24 gelb eingefärbt werden! Das klappt auch super mit
dem Makro: Mein Problem ist es werden auch Werte geändet über eine Userform
es ist also möglich, das später ein kleiner Wert als bisher existiert eingtragen. Und genau da funktioniert mein Makro nicht mehr! Denn es bisherige
kleinste Wert bleibt auch gelb und der sollte dann wieder auf "normal" also
weis zurück gesetzt werden. Kann mir jemand helfen?
mit freundlichem Gruß an alle Helfer
Manfred
Sub UseFunction()
Dim myRange As Range
Set myRange = Worksheets(1).Range("D4:D24")
answer = Application.WorksheetFunction.Average(myRange)
was = Application.WorksheetFunction.Min(myRange)
' MsgBox answer
With Worksheets(1)Range("D4:D24")
Set c = .Find(was, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = was
Set c = .FindNext(c)
With c.Interior
.ColorIndex = 6 ' 6 = gelb 2 = weiss
End With
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub