> > > W�re das in diesem Fall: > > > > aus: 50;50;200 > > wird: 205;205;55 > > Genau... > > Ri = 255 - R > ... > ... > > > Claudius >
Also z.B. so: Funtion InvHTMLColor(strColor) Rot = Hex(255-"&H"&mid(strColor,1,2)) Gruen = Hex(255-"&H"&mid(strColor,3,2)) Blau = Hex(255-"&H"&mid(strColor,5,2)) If len(Rot) = 1 Then Rot = "0" & Rot If len(Gruen) = 1 Then Gruen = "0" & Gruen If len(Blau) = 1 Then Blau = "0" & Blau InvHTMLColor = Rot & Gruen & Blau End Function Gru�, Andreas _______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse
