- Registriert
- 03.03.07
- Beiträge
- 254
Hallo!
kennt sich jemand mit Visual Basic aus?
Ich müsste folgenden Code auf insgesamt 500 Zeilen anwenden. Momentan macht das das Macro nur auf die erste Zeile! (es geht um die konditionierte Farbformatierung)
Was muss ich ändern/hinzufügen damit das Macro diese Formatierung auf alle Zeilen anwendet?
kennt sich jemand mit Visual Basic aus?
Ich müsste folgenden Code auf insgesamt 500 Zeilen anwenden. Momentan macht das das Macro nur auf die erste Zeile! (es geht um die konditionierte Farbformatierung)
Code:
Sub testmacro ()
Cells.FormatConditions.Delete
ActiveCell.Offset(0, 2).Range("A1:HZ1").Select
ActiveCell.Activate
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=$D3", Formula2:="=$H3"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
ActiveCell.Offset(2, 0).Range("A1").Select
End Sub
Was muss ich ändern/hinzufügen damit das Macro diese Formatierung auf alle Zeilen anwendet?