Clever-Excel-Forum

Seiten: 1 2

Hallöchen,

Das mit den Zeilen ist nun leider mal so. Wenn Du 100 Zeilen löschst musst Du auch 100 wieder einfügen, sonst passt es nicht so einfach. Oder du kopierst alles was drunter steht + 100 Zeilen und fügst es mit Werte oder Formeln einfügen wieder ein.

Ich hab jetzt nicht in Deine Datei geschaut, das Prinzip in VBA wäre so. Ich hab jetzt den gesamten Bereich eingefärbt und dann nur einen Bereich mit der Bedingung gefärbt. Den Code könntest Du z.B. im Change Ereignis unterbringen oder von dort aus aufrufen. Die richtigen Farbzahlen kannst Du mit der Makroaufzeichnung beim Einfärben von Zellen rausfinden Smile

Code:
Sub Makro3()

    With Range("A6:D1000")

       .Interior.Color = 6

       .FormatConditions.Delete

       .FormatConditions.Add Type:=xlExpression, Formula1:="=REST((ZEILE(A1));26)<13"

       .FormatConditions(1).Interior.ColorIndex = 5

    End With

End Sub

Hallo Andre,

super, das habe ich gleich eingebaut, habe es aber mit den Formeln von Elex ergänzt, sieht nun wie folgt aus:

Code:
With Range("I6:I1000)

    .FormatConditions.Delete

    .FormatConditions.Add Type:=xlExpression, Formula1:="=REST((ZEILE()-6);26)<13"

    .FormatConditions(1).Interior.ColorIndex = 35

    .FormatConditions.Add Type:=xlExpression, Formula1:="=REST((ZEILE()-6);26)>=13"

    .FormatConditions(2).Interior.ColorIndex = 19

End With

Ist natürlich in das Change Ereignis eingebaut! :)

Vielen lieben Dank nochmals für dein Erklärung und Hilfe!
LG
Alexandra

Seiten: 1 2

schauan

cysu11