Auf dem Link www.colorcombos.com/combolibrary.html fand ich eine Zusammenstellung/Übersicht von Kombinationen von Farben, die gewissermaßen in ihrer Zusammenstellung gut "passen", um es mal so auszudrücken. Es sind dort die HexCodes (HTML-Color-Codes) der Farben angegeben. Ich habe diese Codes mal so aufbereitet, dass sie sowohl in Webseiten (ASP mit VB) verwendbar als auch in Winforms darstellbar und einsetzbar sind. Die Farbsets enthalten unterschiedlich viele Farben (3 bis 6). Hier die Farbcodes in einem Array: ' Color-Schemes Public myColorSchemes() = _ {"&H97054,&HFFDE00,&H6599FF,&HFF9900", _ "&H80,&HFFFFFF,&H0,&HC0C0C0", _ "&H993300,&H99CC99,&H3366", _ "&H628B,&HE6E6DC,&H81A594", _ "&H666633,&HCCCC99,&HFFFFFF,&H990033", _ "&H92CD00,&HFFCF79,&HE5E4D7,&H2C6700", _ "&H6600CC,&HFFCC00,&H0,&HCC0000", _ "&H0,&HFF00,&HFF6600,&H66", _ "&HCCCCCC,&H0,&HFF6600", _ "&H1F1209,&H3366,&HFFF8DC,&H834C24", _ "&HCCCCCC,&H3366,&HFFFFFF,&HCCCC99", _ "&HFFFF66,&HFFCC00,&HFF9900,&HFF0000", _ "&H443266,&HC3C3E5,&HF1F0FF,&H8C489F", _ "&HCC0000,&H99FF00,&HFFCC00,&H3333FF", _ "&H99CC,&HCCFFCC,&H66CCFF,&H3399", _ "&H333399,&H3399FF,&HFFFFFF,&H3366CC", _ "&H3399CC,&HCDB99C,&HFFFFFF,&H330000", _ "&H996699,&HCCCCCC,&H0,&H6699", _ "&H217C7E,&HF3EFE0,&H3399FF,&H9A3334", _ "&HCC9752,&HCCCC00,&HE5DBCF,&HF3B5F", _ "&HCC6600,&HFFFBD0,&HFF9900,&HC13100", _ "&H3399,&H6699FF,&HFFFFFF,&H3366CC", _ "&H3366,&H996699,&HCCFF33,&HFF99", _ "&HFF,&HFF0000,&HFFFFFF,&H333333", _ "&H999967,&H666666,&HCCCCCC,&HCCCC9A", _ "&HFFD800,&H587058,&H587498,&HE86850", _ "&HAA0078,&H78,&HB3B3D7,&HD1CAB0", _ "&H0,&HCC99CC,&HFFFFFF,&H660066", _ "&H3366,&HFFFFFF,&HFF6600", _ "&H336600,&HFFFFFF,&HC0C0C0", _ "&H99CCFF,&HFFCC00,&H99CC99", _ "&H990033,&H669900,&H99FF,&H33CC", _ "&H660033,&HE0E6FF,&H777B88,&H330033", _ "&H400D12,&H4FD5D6,&HFF0000,&HCDFFFF", _ "&HFF3333,&H999999,&H669999,&H3333", _ "&H3366,&HCCCCCC,&HFFCC00", _ "&HC0C0C0,&HFFFFBE,&H3264", _ "&H336699,&H666666,&H999999", _ "&H66,&HFFFFFF,&HFFCC00", _ "&H333399,&H3366CC,&H3399", _ "&H79BEDB,&H593E1A,&H6B78B4,&H266A2E", _ "&H3F5F5F,&HFFFF66,&H2F4F4F", _ "&H663399,&HFFFF66,&H9966", _ "&HD4D7FE,&H666666", _ "&HFF,&HFF00,&HFF0000,&H0", _ "&H996600,&HFFFFFF,&H0", _ "&H692DAC,&H9D538E,&H34ACAF", _ "&H66FFFF,&HFFFF33,&H33FF33", _ "&H5F9EA0,&HFFFF99,&HB22222", _ "&H5A04,&HCCFFBB,&H3A5F0B,&H5502", _ "&H28482,&H7ABA7A,&HB76EB8", _ "&H3366,&H3399FF,&HFFCC99,&HFF9966", _ "&HFF6600,&H666633,&H99,&HFFCC00", _ "&HCC00,&HFF9900,&H99", _ "&HFFCC00,&HCCCCCC,&H666699", _ "&H3333,&HCCCC99,&H666699,&H3366", _ "&HC0C0C0,&HFFFFFF,&H336699", _ "&H333333,&HFFCC00,&H669966,&H993366", _ "&HC0C0C0,&HFFFFFF,&H999966", _ "&HFF6600,&HFFFF66,&H9933", _ "&HCD5C5C,&HF5F5F5,&HFFFE59,&HF3EFE0", _ "&H6F0564,&HF6FA9C,&H8CA93E,&H8C001A", _ "&HCC3300,&H663333,&HFFCC99,&H0", _ "&H0,&HFFFFFF,&H3D72A4", _ "&H990099,&HFFFFFF,&HFFFF00", _ "&H333366,&HCCFFFF,&H336666", _ "&HAAF200,&HFFCF75,&HFF8000,&H0", _ "&H66,&HFFFFCC,&HCCCCFF,&H990066", _ "&H0,&HFFFFFF,&H3D72A4", _ "&H9999CC,&HFFFFCC,&H99CC99,&HCCCC99", _ "&H0,&HFFFFFF,&HE18A07,&HC0C0C0", _ "&H44,&H555555,&H444444,&H333333", _ "&HFFCC00,&H99CC99,&HFFCC00", _ "&HCC99FF,&HFFFFFF,&H99CC00,&H669966", _ "&HD6BF86,&HFFFBD0,&H9C2A00", _ "&H9C9F84,&HA97D5D,&HF7DCB4,&H5C755E", _ "&H666633,&H999966,&HCC6666,&H663333", _ "&HCC9933,&HFFFFFF,&H336699", _ "&HCC0000,&HFF6600,&H660099,&H0", _ "&HFF0080,&HFFFFFF,&H800080", _ "&H528413,&H2088B2,&HD86E3F", _ "&H6699,&HFFFF81,&H0,&H99CC", _ "&H669966,&H336699,&HFFFF00,&H990033", _ "&H3399,&HCCFFCC,&H99CC", _ "&HFF9933,&H3399,&H99CCCC,&HCCCCCC", _ "&H6400,&HB0C4DE,&H99CC,&HCCFFFF", _ "&HFF9900,&H336688,&HFFCC00", _ "&HF0B19,&HFFCF00,&HC5E946,&HAF4FA2", _ "&H999999,&H990033,&HFFFF00,&H330033", _ "&H333366,&HFFFFFF,&HFF9933,&H0", _ "&HFF9900,&HCC3333,&HFFCC00", _ "&HFFCC00,&HCCCC99,&H6A6A5A,&H66", _ "&H996633,&HFFFFFF,&H336699", _ "&H8B88FF,&HFF9C00,&H7BB31A,&HEEDB00", _ "&H336699,&HFFCC66,&HFFFFFF,&H3366", _ "&H0,&HFFFFFF,&HCCCCCC", _ "&HD3649F,&H666666,&H0,&HFFFFFF", _ "&H548FF4,&HFFFFFF,&H7845", _ "&HAA1111,&HFFFFFF,&HEBEBEB,&H0", _ "&HD5D50D,&HFDF8F2,&HEAB988,&HCC6600", _ "&HD08504,&H0,&H29407C,&H660000", _ "&HFF2400,&HFFCC00,&HFFFFFF,&H84", _ "&H6699CC,&H3366,&HC0C0C0,&H44", _ "&H663300,&HCC9900,&H333300,&HCC6600", _ "&HCCCC99,&HFFFFFF,&H6699", _ "&H66,&HE0F4FF,&HFFFFFF,&HFFCC00", _ "&HFF00,&H4040,&HD0CA9C,&H0", _ "&HFFCC00,&HFFFFFF,&H666666", _ "&H191970,&HFFEBCD,&H4682B4", _ "&H333333,&HFF9900,&HFFFFFF,&H666666", _ "&HCE0000,&H63,&H5A79A5,&H9CAAC6,&HDEE7EF", _ "&H84596B,&HB58AA5,&HCECFCE,&HFFFFFF", _ "&H9CAA9C,&HBDCFBD,&HCEDFCE,&HEFEFDE,&HBD9A52", _ "&H9A31,&H84CF96,&HC6E7CE,&HCEFFCE", _ "&H9C0063,&HD693BD,&HEFD3E7,&HFFFFFF", _ "&H30FF,&H7B9AFF,&HD6DFFF,&HFFFFFF", _ "&H5B9A,&H191C8,&H74C2E1,&H8C8984", _ "&HDBE3F0,&HB3BCCC,&H8D96A8,&H737C8C,&H596171,&HD8A412", _ "&HE8D0A9,&HB7AFA3,&HC1DAD6,&HF5FAFA,&HACD1E9,&H6D929B", _ "&H727B84,&HDF9496,&HF6F4DA,&HF4F3EE,&HD9E2E1,&HA2ADBC", _ "&H5C604D,&HFFBAD2,&HF20056,&HE5E7E1,&HC8CFB4,&HA3AE7E", _ "&HF2BC00,&HFFF0BA,&HFF542E,&HCFD6DE,&HADC1D6,&H7297BA", _ "&H7D9C9F,&HBDD8DA,&HDFEFF0,&HAD235E,&HECECEC,&HB1B1B1", _ "&H6194BC,&HA5D1F3,&HD0EAFF,&HE4001B,&HECECEC,&H606060", _ "&HA31E39,&H485C5A,&H8C9C9A,&H9DB2B1,&HBFCFCC,&HD6E4E1", _ "&HC2C52,&H5F6B61,&H5E9DC8,&HDCF0F7", _ "&H484452,&HF8F2DA,&HC7AFBD,&HDDECEF", _ "&HDDECEF,&HBFD9DA,&H87AAAE,&HBC4676,&HF6F6F6,&HB8B9BB", _ "&HCEEBFB,&HA3D6F5,&H66A7C5,&HEE3233,&HF0ECEB,&H6C7476", _ "&HD01A55,&HFCB3D0,&H585947,&HE8E6DA,&HCCCEA9,&HA6AF7A", _ "&HF4F5E7,&H82A9D0,&H6D8CA0,&HBACFE4,&HFF9E01,&H454F8C", _ "&H8CC739,&H85DAD,&H21BEDE,&HFFFFFF,&H31C3E7,&HADB6B5", _ "&H627894,&HA0AEC1,&H466289,&HDBE8F9,&HFA6121,&HFFB739", _ "&H9DAF72,&H566047,&H562F32,&H462D44,&H859731,&H640E27", _ "&H54950,&H789A9F,&HEDF4F5,&HFFFFFF,&HF78F1E", _ "&H4489,&HE1E1D6,&HD3D9DF,&H989898,&H565656,&HDBDBCE", _ "&H6BCAE2,&H51A5BA,&H41924B,&HAFEAAA,&H87E293,&HFE8402", _ "&HCE0000,&HC6CFD6,&HE7E7EF,&HFFFFFF,&H3031", _ "&HCC9900,&HFFDE00,&H6666,&H6699,&H66", _ "&H759564,&HCDDB9D,&HF4F7EC,&HEFD9DC,&HDAB4C9", _ "&H4D8963,&H69A583,&HE1B378,&HE0CC97,&HEC799A,&H9F0251", _ "&HEDBD3E,&H495E88,&HA0AEC1", _ "&H859797,&H919581,&HDEE0D5,&HD84E13", _ "&HEDBD3E,&H5B7778,&H93A8A9,&HD1E6E7", _ "&H5A6571,&H8A939D,&HA2A9AF,&HE5E8ED,&HFD9308", _ "&HD3E1E4,&HC9CACE,&HD9D4AE,&H575234", _ "&HFFB310,&H6F684E,&HFA0026,&H42361E", _ "&HDADDE2,&HC9D255,&H5F6B77,&HD16405", _ "&H76988F,&HAC8C18,&H3F3C29,&H262416", _ "&H1B2A16,&HFFC629,&HFF8F00,&H5A0000", _ "&H298F00,&HCAE4F1,&H588BC,&H578A", _ "&HF4F4AF,&HE1EDCF,&HD44302,&H3F6B03", _ "&HD5D0B0,&H739240,&HC86000,&H425227", _ "&HC5CDD8,&HA5B557,&H841F27,&H354E71", _ "&HFF8F00,&H5A8F29,&H3C7DC4,&H2B2B2B", _ "&HFFCC33,&HFF6600,&HA45209,&H533419", _ "&HFEFCD7,&HA6CB45,&H71B238,&H6A8347", _ "&H3D6A7D,&HD3CEC3,&HFFFFFF", _ "&HCC6600,&H6699CC,&H99CCFF,&HCAE5FF,&HDCDCDC,&HEEEEEE", _ "&H667B99,&HAFBBD2,&HCCD5E6,&HE9EEF6,&HFF6637", _ "&H9ECE,&HFF9E00,&HF7D708,&HCE0000,&H9CCF31", _ "&HCCDDDD,&HAAC4C4,&H9EAEB3,&H93AAAB,&H749749,&HCE3100", _ "&H668E39,&H96B566,&HBCE27F,&H7C7C7C,&HC3C3C3,&HF6FF97", _ "&H421C52,&H732C7B,&H9C8AA5,&HBDAEC6,&HFFFFFF", _ "&HBED661,&H89E894,&H78D5E3,&H7AF5F5,&H34DDDD,&H93E2D5", _ "&H206BA4,&HBBD9EE,&HEBF4FA,&HC0C0C0,&HE7E4D3,&HF1EFE2", _ "&H154890,&H6699FF,&HCDBFAC,&HE1D4C0,&HF5EDE3,&HFF6600", _ "&HFFC3CE,&HD6E3B5,&H6B824A,&HFFF7EF,&H636563", _ "&H9CB6D6,&HF7E7BD,&HCEC7C6,&HB59A73,&H94927B", _ "&HC6C78C,&HE7C39C,&HE7DF9C,&HDEE79C,&HEFEBD6", _ "&HEF597B,&HFF6D31,&H73B66B,&HFFCB18,&H29A2C6", _ "&HFFBE00,&H9DD52A,&HAC54AA,&H666666,&H0", _ "&H52ADDA,&H68B8DF,&HC9C9C9,&HDBDBDB,&HAACD4B,&HB5D954", _ "&H595F23,&H829F53,&HA2B964,&H5F1E02,&HE15417,&HFCF141", _ "&H424242,&HC5BD99,&HFFFFFF,&H701112", _ "&H3D577A,&H677C97,&HE3E6EB,&HAEBD63,&H8F2831", _ "&HF3F4EC,&HCCCFBC,&HA37B45,&H86942A,&H507642", _ "&HE9DCB9,&HBB772E,&H817D62,&H2E3F53", _ "&HE2DC7C,&HA3CD39,&HF43E71,&H4A4A4A", _ "&H771100,&HCC6633,&HFF9900,&H999999,&HCCCCCC", _ "&H638291,&HE8EFF3,&HFFCC33,&HFCF1D1,&H5B7444,&HA3C586", _ "&H9EB847,&HF3F3CC,&HFEBF10,&HC87533,&HF9F7ED,&H33170D", _ "&HEB8921,&HF5AD28,&HFFFFFF,&H2E2F2F,&H1E1E1E,&H0", _ "&H4F2412,&HC9A798,&HE9E0DB,&HF9F6F4,&HCCCCCC", _ "&HBAA378,&HC0A172,&HBAA378,&H382E1C,&H453823,&H2C2416", _ "&H245481,&HB1C3D4,&HDCA80A,&H7C9343,&H677A38", _ "&H4A7B6F,&HEEEEE7,&HCCDDDD,&H9EAEB3,&H242E35", _ "&HFFA300,&H335A9A,&HC2B999,&HD5CBA8,&HDAD1B2,&HEDEBD6", _ "&H0,&H2F4E6F,&H98B1C4,&HC8D7E3,&HE15119,&HCCCCCC", _ "&HB5B6BD,&H9C3839,&HC6D729,&H304A", _ "&HE7DBBD,&HCEDFEF,&H525552,&HC64521", _ "&H524D4A,&HFFFFFF,&H6B7552,&H4A6D18", _ "&HBDC3C6,&H7BC342,&H4AB2D6,&H6594", _ "&HDEDFE7,&HADB2BD,&HB57D29,&H102873", _ "&H2D3956,&H455372,&H616A7F,&HE7E7E7,&HE0E9E9,&HFF1A00", _ "&H1B619B,&HACCBE0,&HD3E0EA,&HF8F2E5,&H9A9A9B,&HD75A20", _ "&H92E20,&H234F32,&H326342,&H92CC47,&H9AEF3F,&HFFE761", _ "&HD3257,&H97A7B7,&HB2C2B9,&HBDD6E0,&H65754D,&HC7DBA9", _ "&H31659C,&H639ACE,&H94BAE7,&H4A79A5,&HFFFFFF", _ "&H6666,&H9DBCBC,&HFFCC66,&HFFEEBB,&H6B6B6B,&HB7B7B7", _ "&H656868,&HF2C968,&HF3E7A9,&HA5A162,&H515230", _ "&H47697E,&H688B9A,&H5B7444,&HA3C586,&HFFCC33,&HFCF1D1", _ "&H660F57,&H663366,&H3366,&HE7EBF0,&HB1BDCD,&H5B7290", _ "&HFFEC94,&HFFAEAE,&HFFF0AA,&HB0E57C,&HB4D8E7,&H56BAEC", _ "&H405774,&H6787B0,&HB1B17B,&HCD6607,&HF6A03D", _ "&H917567,&H7F7C5D,&HCCCAB1,&HD6D5C0,&HE1E0CE", _ "&H0,&H272B2E,&H3B4043,&H666699,&HBEF243", _ "&H54A4DE,&HBBD9EE,&HEBF4FA,&H206BA4,&HFFAB35", _ "&HB0E57C,&HFFEC94,&H9BD1FA,&HFFFFFF,&H0", _ "&HC86000,&HD68840,&H72923F,&H467408,&H404040", _ "&H3F547F,&H999FAD,&HA8ACB8,&HDDDDDD,&HF58735", _ "&H304251,&H3E5363,&H6A7483,&H55D43F,&H67FF4D,&HB8CEE0", _ "&H32556B,&H3A5D73,&H7495AB,&H7DDF17,&HFFC605", _ "&H1C263C,&H313C53,&H455268,&HB6C0D2,&H9CFF00,&HFFFFFF", _ "&H3A5D73,&H32556B,&H488FC8,&H6CCB17,&HFFC605", _ "&H3087B4,&H143D55,&H287AA9,&H7E9234,&H96AD3E,&HCCCCCC", _ "&H111111,&HDED5B3,&HD3CAAA,&HE3DBBE,&HFFA300", _ "&H670A0A,&H831515,&HF8F2E5,&HFFFFFF", _ "&H184D68,&H31809F,&HFB9C6C,&HD55121,&HCFE990,&HEAFBC5", _ "&HE426C,&H546F8B,&H6586A7,&H5F021F,&HFFC652,&H83AE84", _ "&H374D3C,&H355842,&H4A6751,&HF29F01,&HAFAFA8,&HDADAD4", _ "&H287AA9,&H3087B4,&H143D55,&H70822E,&HA0B842,&H999999", _ "&H561420,&H821122,&HC59A6F,&H333333,&HCCCCCC,&HFCFCFC", _ "&H213240,&H90AEC6,&H10C8CD,&HEC1559,&HFAF93C", _ "&HD31D8C,&HEE88CD,&H4DC5D6,&HA5F2F3,&HBCDD11,&HF1FAC0", _ "&H983265,&H986598,&H979735,&H339798,&H6699,&HCCCC99", _ "&H557260,&H6A8B92,&H8A9875,&H34626B,&HEAEEEA,&H3291B1", _ "&H9C1C6B,&HCA278C,&HE47297,&HFFE9E8,&HAA0114,&H0", _ "&H1F4864,&HD7E2E9,&HFFFFFF,&HFFCB35,&HE95C40,&H50021B", _ "&H5099,&H7C7062,&H1A62A3,&HB4A28F,&HF7F6F4,&HE0EAF4", _ "&HCF5300,&HFF6600,&H333333,&HEB5E00,&H4D1E00,&HFF7619", _ "&H0,&H2956B2,&H659CEF,&H7DBD00,&HDCF600,&HFF5B00", _ "&HCC1559,&HFF5EAA,&H96B3D3,&HFFFFFF,&H585858,&H646464", _ "&HAD0066,&HD13D94,&HF5851F,&HCADA2A,&H81A4B9,&HCFE8F6", _ "&HA25F08,&HF4E6CC,&HFCF5EB,&H2F8CAB,&HC9E2E9,&HFE4902", _ "&H570F48,&H872D7D,&HF398E9,&HFFC128,&HFFDC8A,&H3B3A3A", _ "&H0,&H303F42,&H55676A,&H6C7A7D,&HFFFFFF,&HEEC015", _ "&H79B837,&H9DCE5C,&HC7EB6E,&HE5E5E5,&H444041,&HA0A0A", _ "&H21B6A8,&HCBFFFA,&H7F1917,&H7F3D17,&HFFD197,&HFFCCCB", _ "&H105952,&H177F75,&HCBFFFA,&H7F3D17,&H7F5E17,&H22287F", _ "&H177F75,&H21B6A8,&H7F1769,&HFFCBF4,&HB69521,&HFFF4CB", _ "&H21B6A8,&H177F75,&HB6212D,&H7F171F,&HB67721,&H7F5417", _ "&H4086AA,&H91C3DC,&H87907D,&HAAB6A2,&H555555,&H666666", _ "&HF1921A,&H669900,&H656E75,&HE6E7E8,&H679EC9,&HFFFFFF", _ "&H9C9284,&HCCCC99,&HE6E6CC,&H6699CC,&HFF9900,&H0", _ "&H3D362D,&H665847,&HFEFFFD,&HFF9900", _ "&H990000,&HCCCC66,&HF1F1D4,&HFFFFFF", _ "&HE8110F,&HFBC723,&H1B6AA5", _ "&HD52315,&HFFFFFF,&HFBB601", _ "&H73AF59,&HFFFFFF,&H0", _ "&HD72729,&HFBB601,&H1B6AA5", _ "&H1A2828,&H28AF63,&HC2D98B", _ "&H7D868F,&H0,&H5A6F8E", _ "&HD5331E,&HFFD900", _ "&HD5331E,&HFFFFFF,&H6078D8", _ "&H4C50A9,&HF4A817", _ "&H3964C3,&H0,&HD34328", _ "&H2243C,&H5DB3,&H5195CE,&HE6E6E6,&HF9F9F9,&H5BC236", _ "&H927B51,&HA89166,&H80C31C,&HBCDD5A,&HFF7900,&HFBB36B", _ "&H757116,&HAEBC21,&HD9DB56,&H477F,&H4C88BE,&H8DC3E9", _ "&HB96A9A,&HD889B8,&H9CC089,&HD8F3C9,&HFDE8D7,&HFFFFFF", _ "&H194E84,&H3B6B9C,&H1F242A,&H37414A,&H60BB22,&HF2BABB", _ "&HF2F5ED,&HFFC200,&HFF5B00,&HB80028,&H84002E,&H4AC0F2", _ "&H9BE1FB,&HC5EFFD,&HBD2031,&H231F20,&HFFFFFF,&H6295", _ "&HFDB813,&HF68B1F,&HF17022,&H62C2CC,&HE4F6F8,&HEEF66C", _ "&H6D98AB,&H275E,&HFEB729,&HA8B1B8,&HFFFFFF,&H0", _ "&HEFD279,&H95CBE9,&H24769,&HAFD775,&H2C5700,&HDE9D7F", _ "&H2B3E42,&H747E80,&HD5E1DD,&HF7F3E8,&HF2583E,&H77BED2", _ "&HC73B0B,&HF2C545,&H978E43,&H350608", _ "&H616536,&HA4E666,&H31B96E,&H1B1112"} Dazu habe ich in einem kleinen WinForms-Programm eine Darstellung zur Übersicht in einem DatagridView erstellt. Man braucht eine Form mit einem DGV. Dann im FormLoad-Ereignis: Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim zeile() As String Dim z As String = "Combo" With DataGridView1 .ColumnCount = 1 .RowCount = myColorSchemes.Length For i As Short = 0 To myColorSchemes.Length - 1 zeile = Split(myColorSchemes(i), ",") If .ColumnCount < zeile.Length + 1 Then .ColumnCount = zeile.Length + 1 .Rows(i).Cells(0).Value = z + Format(i + 1, "000") For j As Short = 0 To zeile.Length - 1 .Rows(i).Cells(j + 1).Style.BackColor = HEXtoColor(zeile(j).Substring(2)) .Rows(i).Cells(j + 1).Value = zeile(j) Next Next End With End Sub Weiter braucht man die folgende Konvertierungsfunktion für die HTML-Farben: ''' <summary> ''' Konvertierung von Hexcolor in eine .Net Color ''' </summary> ''' <param name="hexColor">der HexCode</param> ''' <returns>.Net Color</returns> Public Function HEXtoColor(ByVal hexColor As String) As Color If hexColor Is String.Empty Then Return Color.Empty hexColor = hexColor.Trim If hexColor.Chars(0) = "#" Then hexColor = hexColor.Substring(1) If hexColor.Length < 6 Then hexColor = "000000".Substring(0, 6 - hexColor.Length) + hexColor End If Return Color.FromArgb(CInt("&h" + hexColor.Substring(0, 2)), _ CInt("&h" + hexColor.Substring(2, 2)), _ CInt("&h" + hexColor.Substring(4, 2))) End Function Viel Freude beim anwenden der Farbsets! |