Privates VorWorkbook_Open ()
Schwaches lastRow als lang
Mit Arbeitsblättern („Sheet1“)
. Cells.FormatConditions.Delete 'LÖSCHUNG ALLE COND FORMATIERUNG
lastRow =. Rows.Count
Mit. Strecke („A3: O“ u. lastRow) 'EINSTELLTEN Rückstellungsgegenstand, alle Ausdrücke nd, die mit beginnen
'„.“ bezieht auf ihn. Merken genistet „mit“
. Vorwählen ', um ActiveCell auf oberste linke Ecke der Strecke einzustellen
.FormatConditions.Add Art: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E3, $E3) >1 "
.FormatConditions (1).Interior.ColorIndex = 44
.FormatConditions (1).StopIfTrue = ausrichten en
.FormatConditions.Add Art: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E$ " u. lastRow u. „, $E3) >1“
.FormatConditions (2).Interior.ColorIndex = 37
.FormatConditions.Add Art: =xlExpression, Formula1: = " =UPPER ($K2) = "" JA """
.FormatConditions (3).Interior.Color = vbRed 'Rot
Ende mit
Ende mit
Enden-Unterseeboot
|