mehrere Max Wete Ermittel

[freddy]

Hallo Ralf
ich habe die Bedingte Formatierung gelöscht
 
So gehts auch noch wenigstens bei mir

Code:

Sub TagesBester()
   With Sheets("Tipp_Auswertung").Range("D5:N38")
      .FormatConditions.Add Type:=xlExpression, Formula1:="=(D5:N38>=0)*(D5=MAX($D5:$N5))"
      .FormatConditions(1).Interior.ColorIndex = 4
   End With
End Sub

Ich glaube es liegt an den Verschiedenen Office Versionen
Du hast 2010 und ich 2013 un daran könnte es gelegen haben

[WillWissen]

Hi Freddy,

der besseren Lesbarkeit wegen solltest du die Codes in Tags setzen. Schau mal im Antwortformular in der zweiten Reihe den 5. Button von rechts an. Wenn du den drückst, kannst du in dem sich öffnenden Code-Fenster dein Makro reinkopieren und mit "Einfügen" dieses in den Beitrag setzen.

[freddy]

Servus Günter


Danke für den Hinweis

[freddy]

Servus Miteinader

Als Nachtrag ,Habe es nun doch Anders lösen können  Danke für Eure Hilfe Vielecht Hilft es Irgend wem  anderen auch

Code:

​
Sub BesteTagesWerte()
With Sheets("Tipp_Auswertung")
  ErsteZeile = 5
  LetzteZeile = 38
  ErsteSpalte = 4
  LetzteSpalte = 14
 
      Farbe = Sheets("Einstellungen").Range("K4").Value
     
      For Zeile = ErsteZeile To LetzteZeile
      Set Bereich = .Range(.Cells(Zeile, ErsteSpalte), .Cells(Zeile, LetzteSpalte))
      WertMax = Application.WorksheetFunction.Max(Bereich)
     
      For Each Zelle In Bereich
      Select Case Zelle.Value
      Case WertMax
    
     If Zelle > 0 And Not Zelle.NumberFormat = "#,##0.00 $" Then
     Zelle.Interior.ColorIndex = Farbe
    
         End If
       End Select
     Next Zelle
   Next Zeile
 End With
End Sub