viele Befehlsschaltflächen
24.10.2002 14:24:35
WilhelmR.
ich habe 40 Befehlsschaltflächen erzeugt. Jede greift auf Druck per Makro auf eine Zelle im Nachbarblatt zu und trägt den Wert in das aktive Arbeitsblatt ein.
Zur besseren Kontrolle färbt sich die gedrückte Schaltfläche rot ein. (Schalter01.ForeColor = &H0000011)
Bei Druck auf Schalter 2 wird Schalter1 wieder schwarz und 2 wird rot (Schalter02.ForeColor = &H0000012 ; Schalter01.ForeColor = &H0000012) usw.
Das ist nicht sehr sicher, da beim Überspringen eines Schalters der letzte rot bleibt.
Ich habe versucht mit If Schalter01 = rot Then Schalter02 = schwarz (vereinfacht ausgedrückt) das Problem zu lösen, aber das führt ins Uferlose. Ich müsste jedesmal per if und then den aktiven auf rot und alle anderen auflisten und auf schwarz setzen.
Frage: geht das auch einfacher?
Wilhelm