Clever-Excel-Forum

Seiten: 1 2

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

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.

Servus Günter

Danke für den Hinweis

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

Seiten: 1 2

freddy

WillWissen

freddy

freddy