Hallo

versuch es mal so

Sub Formatierung()

    Dim Zelleeins As Variant
    Zelleeins = "A2"

    Dim Zellezwei As Variant
    Zellezwei = "A3"
    
    Dim RNG As Range
    
    Zelleeins = InputBox(" Zelle 1 die formatiert werden soll ", , Zelleeins)
    Debug.Print [Zelleeins]

    Zellezwei = InputBox(" Zelle 2 die formatiert werden soll ", , Zellezwei)
    Debug.Print [Zellezwei]

    Set RNG = Tabelle1.Range(Range(Zelleeins), Range(Zellezwei))
    With RNG
        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65735
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
   
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
            Formula1:="=""C"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 12713983
        End With


        .FormatConditions(1).StopIfTrue = False
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
            Formula1:="=""C1"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 65535
        End With


        .FormatConditions(1).StopIfTrue = False
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
            Formula1:="=""B"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
        End With


        .FormatConditions(1).StopIfTrue = False
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
            Formula1:="=""B1"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 192
        End With


        .FormatConditions(1).StopIfTrue = False
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
            Formula1:="=""A"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Font
            .Bold = True
        End With
    
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 192
        End With

    End With

End Sub

LG UweD