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
|