AW: TextBox gleiche Farbe wie Zelle
20.07.2010 20:56:56
Ramses
Hallo
Private Sub btnChange_Click()
'auf Grundlage eines Codes von Nepumuk
Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long
Dim i As Integer
Wert = Range("A1").Interior.Color
On Error Resume Next
Rot = Wert Mod 256
Wert = (Wert - Rot) / 256
Grün = Wert Mod 256
Wert = (Wert - Grün) / 256
Blau = Wert Mod 256
Me.TextBox1.BackColor = RGB(Rot, Grün, Blau)
End Sub
Zellbezug musst du halt anpassen
Gruss Rainer