bedingte Formatierung in VBA
11.09.2003 15:42:39
Daniel G
ich versuche in meinem Tabellenblatt die Inhalte der Spalte C auf 'ausser' und 'außer' zu überprüfen.
Die beiden Wörter kommen als Buchstabenfolge in den Zeilen vor, also stehen nicht allein.
Mit der bedingten Formatierung kann ich das ja per Formel =FINDEN("ausser";C1) lösen.
Mit dem Makrorecorder wird mir folgendes Ergebnis aufgezeigt:
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=FINDEN(""ausser""; C1)"
Selection.FormatConditions(1).Font.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=FINDEN(""außer""; C1)"
Selection.FormatConditions(2).Font.ColorIndex = 3
Nun will ich das in Workbook_Open-Event mit einbauen, weis allerdings nicht, wie ich das vereinfachen kann.
Hab auch schon im Archiv und in der Recherche geschaut, bin aber wohl zu blind was zu finden.
Kann mir da jmd. einen Anstoss geben?
Wäre euch sehr dankbar!!
Gruss Daniel