RGB-Beispiel von Josef Ehrensberger
24.02.2005 10:01:31
Josef
Würde gerne das RGB-Beispiel von Josef Ehrensberger:
https://www.herber.de/bbs/user/18470.xls
oder:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:C2")) Is Nothing Then
If Not IsNumeric([A2]) Or [A2] < 0 Then [A2] = 0
If Not IsNumeric([B2]) Or [B2] < 0 Then [B2] = 0
If Not IsNumeric([C2]) Or [C2] < 0 Then [C2] = 0
Me.Shapes("Rechteck 1").Fill.ForeColor.RGB = RGB([A2], [B2], [C2])
End If
End Sub
in ein Makro-Modul einbinden (also rgb_anzeigen() ....) und dieses mit einem Button starten. Da ich VB Neuling bin, gelingt es mir nicht die forhandene "Tabellenform" in "Modulform" umzuschreiben.
Wer kann mir da helfen?
Grüße,
Hans