13.05.2016, 15:58
(13.05.2016, 15:36)snb schrieb: [ -> ]Noch etwas erweitert:
jetzt sollen es ja für die Pfeile 3 verschiedene "Farben" sein, je nachdem ob die Antwort "ja" oder "nein" lautet:
rot - unsichtbar
grün - unsichtbar
Seiten: 1 2
13.05.2016, 15:58
13.05.2016, 18:05
Hättest du doch einfach selbst.... ;)
oder:
Code:
Sub M_snb()
Shapes("A_" & Application.Caller).Line.ForeColor.RGB = RGB(-(CheckBoxes(Application.Caller) <> 1) * 220, -(CheckBoxes(Application.Caller) = 1) * 220, 0)
End Suboder:
Code:
Sub M_snb()
y = Abs(CheckBoxes(Application.Caller) = 1)
Shapes("A_" & Application.Caller).Line.ForeColor.RGB = RGB((1 - y) * 220, y * 220, 0)
End Sub31.05.2016, 14:45
(13.05.2016, 15:19)schauan schrieb: [ -> ]Hallöchen,
schaue Dir mal an, wie in der Datei von snb das Makro aufgerufen wird bzw. wie die Checkbox mit dem Code zum Färben "verzahnt" ist.
Hallo,
sorry aber ich finde die Verbindung oder Verzahnung nicht die du meinst, könnt Ihr mir schritt für schritt Helfen?
Ich bin nicht der hellste in vba.
31.05.2016, 15:19
Hi,
jetzt wechseln sie zwischen rot und grün, das war es aber nicht, was Schall wollte, sondern:
die einen Pfeile sollen wechseln zwischen rot und unsichtbar und andere Pfeile zwischen grün und unsichtbar.
(13.05.2016, 18:05)snb schrieb: [ -> ]Hättest du doch einfach selbst.... ;)
jetzt wechseln sie zwischen rot und grün, das war es aber nicht, was Schall wollte, sondern:
die einen Pfeile sollen wechseln zwischen rot und unsichtbar und andere Pfeile zwischen grün und unsichtbar.
Seiten: 1 2