Sub Farben_schoen_definieren()
->original ky-Makro
ActiveWorkbook.Colors(1) = RGB(165, 0, 33)-> ochsenblut
ActiveWorkbook.Colors(2) = RGB(255, 255, 255)-> weiß
ActiveWorkbook.Colors(3) = RGB(255, 0, 0)-> rot
ActiveWorkbook.Colors(4) = RGB(0, 255, 0)-> leuchtgrün
ActiveWorkbook.Colors(5) = RGB(0, 0, 255)-> dunkelblau
ActiveWorkbook.Colors(6) = RGB(255, 255, 0)-> gelb
ActiveWorkbook.Colors(7) = RGB(255, 102, 153)-> altrosa
ActiveWorkbook.Colors(8) = RGB(0, 255, 255)-> türkis
ActiveWorkbook.Colors(9) = RGB(204, 0, 0)-> weinrot
ActiveWorkbook.Colors(10) = RGB(51, 204, 51)-> grün
ActiveWorkbook.Colors(11) = RGB(0, 0, 153)-> miternachtsblau
ActiveWorkbook.Colors(12) = RGB(204, 102, 0)-> rotbraun
ActiveWorkbook.Colors(13) = RGB(204, 0, 255)-> lila
ActiveWorkbook.Colors(14) = RGB(45, 182, 179)-> meerblau
ActiveWorkbook.Colors(15) = RGB(221, 221, 221)-> hellgrau
ActiveWorkbook.Colors(16) = RGB(95, 95, 95)-> dunkelgrau
ActiveWorkbook.Colors(33) = RGB(163, 224, 255)-> 6/4 hellblau
ActiveWorkbook.Colors(34) = RGB(204, 255, 255)-> taubeneiblau
ActiveWorkbook.Colors(35) = RGB(204, 255, 204)-> blaß-grün
ActiveWorkbook.Colors(36) = RGB(255, 255, 153)-> blaß-gelb
ActiveWorkbook.Colors(37) = RGB(204, 236, 255)-> blaß-blau
ActiveWorkbook.Colors(38) = RGB(255, 204, 204)-> blaß-rosa
ActiveWorkbook.Colors(39) = RGB(219, 183, 255)-> 7/5 blaß-lila
ActiveWorkbook.Colors(40) = RGB(255, 214, 133)-> sand
ActiveWorkbook.Colors(41) = RGB(102, 153, 255)-> graublau
ActiveWorkbook.Colors(42) = RGB(0, 204, 255)-> hellblau intensiv
ActiveWorkbook.Colors(43) = RGB(204, 153, 0)-> hellbraun
ActiveWorkbook.Colors(44) = RGB(255, 204, 0)-> hellorange
ActiveWorkbook.Colors(45) = RGB(255, 153, 0)-> dunkelorange
ActiveWorkbook.Colors(46) = RGB(255, 102, 204)-> pink
ActiveWorkbook.Colors(47) = RGB(153, 0, 204)-> dunkellila
ActiveWorkbook.Colors(48) = RGB(169, 169, 169)-> 8/3 mittelgrau
ActiveWorkbook.Colors(49) = RGB(0, 143, 140)-> petrol
ActiveWorkbook.Colors(50) = RGB(153, 204, 0)-> olivgrün
ActiveWorkbook.Colors(51) = RGB(0, 153, 0)-> dunkelgrün
ActiveWorkbook.Colors(53) = RGB(204, 0, 153)-> dunkelpink
ActiveWorkbook.Colors(52) = RGB(153, 102, 0)-> dunkelbraun
ActiveWorkbook.Colors(54) = RGB(204, 153, 255)-> helllila
ActiveWorkbook.Colors(55) = RGB(153, 0, 153)-> dunkelmalve
ActiveWorkbook.Colors(56) = RGB(0, 0, 0)-> schwarz
ActiveWorkbook.Colors(17) = RGB(189, 189, 255)-> hellblau
ActiveWorkbook.Colors(18) = RGB(189, 255, 189)-> hellgrün
ActiveWorkbook.Colors(19) = RGB(255, 189, 189)-> rosa
ActiveWorkbook.Colors(20) = RGB(249, 249, 135)-> hellgelb
ActiveWorkbook.Colors(21) = RGB(204, 153, 255)-> helllila
ActiveWorkbook.Colors(22) = RGB(255, 204, 102)-> hellorange
ActiveWorkbook.Colors(23) = RGB(73, 255, 207)-> türkis
ActiveWorkbook.Colors(24) = RGB(255, 153, 255)-> hellmagenta
ActiveWorkbook.Colors(25) = RGB(51, 102, 255)-> dunkelblau
ActiveWorkbook.Colors(26) = RGB(0, 255, 153)-> giftgrün
ActiveWorkbook.Colors(27) = RGB(255, 124, 128)-> hellrot
ActiveWorkbook.Colors(28) = RGB(255, 255, 0)-> gelb
ActiveWorkbook.Colors(29) = RGB(204, 0, 255)-> dunkellila
ActiveWorkbook.Colors(30) = RGB(255, 153, 51)-> dunkelorange
ActiveWorkbook.Colors(31) = RGB(0, 204, 102)-> dunkelgrün
ActiveWorkbook.Colors(32) = RGB(255, 0, 255)-> magenta
End Sub