Hallo zusammen,

meine Frage, wie etwas gelöst werden kann bezieht sich auf die Bedingte Formatirung mit Formel. Habe schon sehr viele Versuche hinter mir und kann auch die Formel in den entsprechenden Bereich hinzufügen per Makro. Aber die Formel funktioniert nicht weil im Dialog der Bedigten Formatierung folgender Eintrag steht: ="ANZAHL($H$18:$AK$18)=$20"

Hier dürfen die Hockomma nicht stehen. Irgendwo habe ich ein Fehler allerdings komme ich nicht darauf. Hätte jemand vielleicht eine Idee? Vorab besten Dank an alle. 

Hier der Auszug aus dem Quellcode:

Sub FormatAnzahl()
'Formatierung der Prüflinge in Ihrer Anzahl mit grün werdendem Hintergrund
Dim strAnzahlZelle2 As String
Dim intZeileDUT As Integer
'Dim strFormel As Variant

    
'**************** C-Samples ************************************************************************************
 Sheets("Testplan Matrix C Samples").Select                                                                     'C Samples wird gewählt
    
 
 intZeileDUT = 17                                                                                               'begin rowindex
 
 Sheets("Testplan Matrix C Samples").Range(Cells(17, DUT + 7), Cells(17, DUT + 7)).Select
 'MsgBox (Sheets("Testplan Matrix C Samples").Range.ActiveCell.Adress)
 
 strAnzahlZelle2 = ActiveCell.AddressLocal(False, False)
    
 Do Until ActiveSheet.Range(Cells(intZeileDUT, 1), Cells(intZeileDUT, 1)) = ""                                  'all lines are through
    
    
    ActiveSheet.Range(Cells(intZeileDUT, 3), Cells(intZeileDUT, 3)).Select                                      'Zeileweise Markiren
    
    'Beispielformel: =ANZAHL($H17:$FB17)=$C17
    'strFormel = "ANZAHL($H$" & intZeileDUT & ":$" & Mid(strAnzahlZelle2, 1, 2) & "$" & intZeileDUT & ")=$" & ActiveCell
    'MsgBox (strFormel)
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="ANZAHL($H$" & intZeileDUT & ":$" & Mid(strAnzahlZelle2, 1, 2) & "$" & intZeileDUT & ")=$" & ActiveCell
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    intZeileDUT = intZeileDUT + 1
 Loop
 

'**************** D-Samples ************************************************************************************
    'Sheets("Testplan Matrix D Samples").Select                                      'D Samples wird gewählt

End Sub