06.09.2015, 07:08
Hallo zusammen
habe folgendes Problem ich versuche in mehreren Zeilen und Spalten mit der Funktion Worksheets Funktion Max die größten Werte zu ermitteln was auch Klappt aber wenn in einer Zeile 2 oder mehrere gleiche vorkommen dann wird nur der erste Maxwert erfasst und Markiert ich bräuchte aber alle Werte
Hier mein Code:
Danke im voraus für die Hilfe
habe folgendes Problem ich versuche in mehreren Zeilen und Spalten mit der Funktion Worksheets Funktion Max die größten Werte zu ermitteln was auch Klappt aber wenn in einer Zeile 2 oder mehrere gleiche vorkommen dann wird nur der erste Maxwert erfasst und Markiert ich bräuchte aber alle Werte
Hier mein Code:
Code:
Sub TagesBester()
With Sheets("Tipp_Auswertung")
ErsteZeile = 5
LetzteZeile = 38
ErsteSpalte = 4
LetzteSpalte = 14
For Zeile = ErsteZeile To LetzteZeile
Set Bereich = .Range(.Cells(Zeile, ErsteSpalte), .Cells(Zeile, LetzteSpalte))
'******************************************************************************************************
BestWert = Application.WorksheetFunction.Max(Bereich)
If BestWert <= 0 Then Exit Sub
Set BestAdr = Bereich.Find(What:=BestWert, lookat:=xlValue)
If BestWert > 0 Then
.Cells(Zeile, BestAdr.Column).Interior.ColorIndex = 4
End If
Next Zeile
End With
End Sub
Danke im voraus für die Hilfe