• Es ist bereits Apfeltalk-Tradition und wir möchten sie auch in diesem Jahr fortsetzen: Unser Apfeltalk-Weihnachtslogo-Wettbewerb hat begonnen! Gestaltet für uns das Weihnachtsbanner, das im Monat Dezember bis zum Weihnachtsfest unsere Webseite schmücken soll. Lasst Eurer Kreativität freien Lauf! Hier geht es zum Wettbewerb --> Klick
  • November - das bedeutet oftmals Herbstblues, grauer Himmel, Tristesse und Wetter, bei dem man gern im Warmen bleibt. Aber nur oftmals! Wir fordern Euch gern auf, gegen den Herbstblues anzukämpfen und hoffen, dabei hilft Euch unser aktuelles Monatsthema. Neugierig geworden? --> Zum Mitmachen bitte hier klicken

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?