Macro: Excel 2007

sim1344

Zuccalmaglios Renette
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)

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?