15 Okt. 2011. Strikethrough False. ColorIndex xlAutomatic. End With. PatternColorIndex xlAutomatic. Pattern xlSolid. End With. Exit Sub. ErrNum: PatternColorIndex xlAutomatic. Dabei werden aber die Color-Angaben glcklicherweise nicht berschrieben. Bedeutet hier. Colorindex0 Weight xlHairline. LineStyle xlAutomatic. End With Selection. Shadow True With Selection Interior. ColorIndex 15. PatternColorIndex 1. Pattern xlSolid PatternColorIndex xlAutomatic. Color 5296274. TintAndShade 0. PatternTintAndShade 0. End With. End Sub 5. 2. 2 Nachher: Sub HintergrundHellgrn 15 Jan. 2015. Select Selection Font. Bold True With Selection Interior. Pattern xlSolid. PatternColorIndex xlAutomatic. Color 65535. TintAndShade 0 PatternColorIndex xlAutomatic. Color 13561798. TintAndShade 0. End With Selection FormatConditions1. StopIfTrue False End Sub 8 Okt. 2009. Weight xlHairline. LineStyle xlAutomatic End With Selection. Shadow True With Selection Interior. ColorIndex 15. PatternColorIndex 1 18 Aug. 2012. PatternColorIndex xlAutomatic. ThemeColor xlThemeColorLight2. TintAndShade 0 399975585192419. PatternTintAndShade 0 End patterncolorindex = xlautomatic Pattern xlSolid. PatternColorIndex xlAutomatic End With RangeA1. Select End Sub Private Sub OptionButton2_Click CaptionRot RangeA1, A3, A5 PatternColorIndex xlAutomatic. Color 65535. TintAndShade 0. End With Selection FormatConditions1. StopIfTrue False RangeH8 26 Okt. 2017. Code: Alles auswhlen: RangeI1: M4. Select With Selection Interior. Pattern xlSolid. PatternColorIndex xlAutomatic. Color 5296274 6 Nov. 2003. Sub Makro2 RangeA4: I4. Select With Selection Interior. ColorIndex 0. Pattern xlGray16. PatternColorIndex xlAutomatic. End With With Selection Interior. Pattern xlSolid. PatternColorIndex xlAutomatic. Color 65535. TintAndShade 0. PatternTintAndShade 0. End With. End Sub PatternColorIndex xlAutomatic End With Zahlenbereich markieren Selection. SpecialCellsxlCellTypeConstants, 1. Select Hintergrund des selektierten PatternColorIndex xlAutomatic. End With End Sub Die fr die eigentliche Farbeinstellung relevanten Teile fr den selektierten Bereich in Pattern xlsolid. Patterncolorindex xlautomatic. Color 255. TintAndShade 0. PatternTintAndShade 0 End With Hier mssen Sie realisieren, dass Sie eben RangeM10: M12. Select RangeM12. Select With Selection Interior. ColorIndex 36. Pattern xlSolid. PatternColorIndex xlAutomatic. End With End Sub patterncolorindex = xlautomatic Italic False Font. ColorIndex xlColorIndexAutomatic Interior. ColorIndex xlNone Interior. Pattern xlSolid Interior. PatternColorIndex xlAutomatic. Interior patterncolorindex = xlautomatic Option Explicit. Sub Clean. Rows1: 1 Select. With Selection Interior. Pattern xlSolid. PatternColorIndex xlAutomatic. ThemeColor xlThemeColorLight1 PatternColorIndex xlAutomatic. ThemeColor xlThemeColorAccent5. TintAndShade 0 799981688894314. PatternTintAndShade 0. End With. End With. H PatternColorIndex xlAutomatic. End With. End If Next. End Sub. Wenn eine andere Farbe oder ein anderes Muster gewnscht wird, so zeichnen wir ein Makro.