1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
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