Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bedingte Formatierung durch Makro

Bedingte Formatierung durch Makro
21.02.2023 15:30:12
Andre
Hallo alle zusammen,
ich habe ein Problem, mit der bedingte Formatierung per Makro
bei der folgenden Formel
=$O8="Test"

funktioniert der nachfolgende Code
With Range("R8").FormatConditions.Add(Type:=xlExpression, Formula1:="=$O8=""Test""")
.Interior.ColorIndex = 15  'grau
.StopIfTrue = False
End With


nur bei der Formel =>
=AND($O8="Test",R8/MAX(R5,AVERAGEIF(R5:V5,">0"))($J8))

habe ich folgendes probiert, hier kommt aber Laufzeitfehler 5
With Range("R8").FormatConditions.Add(Type:=xlExpression, Formula1:="=AND($O8=""Test"",R8/Max(R5,AverageIf(R5:V5, "">0""))  ($J8)")
.Interior.ColorIndex = 4
.StopIfTrue = False
End With
End Sub


Was ist falsch?
Vielen Dank im Voraus!
MFG Andre

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung durch Makro
21.02.2023 15:50:41
ChrisL
Hi
Eine Klammer ) fehlt.
cu
Chris
AW: Bedingte Formatierung durch Makro
21.02.2023 15:59:31
Andre
Hallo Chris,
danke für die Meldung.... aber wo fehlt die Klammer?
nachfolgend funktioniert auch nicht ;-(
With Range("R8").FormatConditions.Add(Type:=xlExpression, Formula1:="=AND($O8=""Test"",R8/Max(R5,AverageIf(R5:V5, "">0"")) ($J8)"))
MFG Andre
AW: Bedingte Formatierung durch Makro
21.02.2023 16:05:58
ChrisL
Hi
Ich dachte so...
...($J8))")
Aber jetzt wo ich die Antwort von Daniel lese, fällt mir natürlich auch auf, dass die Klammer um J8 generell unnötig ist.
cu
Chris
AW: Bedingte Formatierung durch Makro
21.02.2023 16:02:53
Daniel
Hi
die Formel ist falsch, du hast da einen Klammerfehler. Meiner Vermutung nach ist es aber nicht eine fehlende ")" sondern ein "(" zuviel, nämlich das vor dem J$8.
nächste mögliche Fehlerursache könnte sein, dass bei der Programmierung der Bedingten Formatierung über VBA die Formeln nicht in englisch, sondern in der landestypischen Schreibweise geschrieben werden müssen, dh wenn du ein deutsches Excel hast, auf deutsch mit
- UND statt AND
- MITTELWERTWENN statt AVERAGEIF
- Semikolon statt Komma als Parametertrennzeichen.
wenn das ganze international in verschiedenen Sprachversionen laufen soll, müsstest du die Formel zunächst auf englisch in eine Zelle schreiben und dann dort die lokale Formel für die bedingte Formatierung auslesen:
With Range("R8")
    .Formula = "=AND($O8=""Test"",R8/Max(R5,AverageIf(R5:V5,"">0""))$J8)"
    With .FormatConditions.Add(Type:=xlExpression, Formula1:=.FormulaLocal)
        .Interior.ColorIndex = 4
        .StopIfTrue = False
    End With
    .ClearContents
End With
Gruß Daniel
Anzeige
AW: Bedingte Formatierung durch Makro
21.02.2023 17:54:19
Andre
Hallo Daniel,
danke für den Tipp, ich versuche es einzuarbeiten.
MFG Andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige