Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Button-Backcolour

Forumthread: Button-Backcolour

Button-Backcolour
20.01.2006 14:18:21
Norbert
Hallo,
ich habe ein CB und eine CheckB.welche den CB aktiviert.

Private Sub CommandButton1_Click()
CommandButton1.Enabled = CheckBox1
Range(A1:A32) = ""
CheckBox1 = False
End Sub

ich möchte gerne das der CB bei nicht aktivierter CheckB. Backcolour "rot",
und bei aktivierter CheckB. Backcolour "grün" wird.
Ich bekomme dies einfach nicht geregelt.
Wer kann mir bitte weiterhelfen um dies zu realisieren?
Danke vorab u.Gruß
Norbert
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button-Backcolour
20.01.2006 15:36:21
Daniel
Hallo, kann es so sein? Gruss Daniel.

Private Sub CheckBox1_Change()
Dim CheckBox1_Value As Variant
CheckBox1_Value = CheckBox1.Value
If (VBA.IsNull(CheckBox1_Value)) Then Exit Sub
If (CheckBox1_Value = -1) Then
Me.CommandButton1.BackColor = vbGreen
Else
Me.CommandButton1.BackColor = vbRed
End If
End Sub

Anzeige
AW: Button-Backcolour
20.01.2006 16:55:45
Norbert
Hallo,
der Farbwechsel klappt, aber jetzt bleibt der CB immer inaktiv.
Er kann also über die CheckBox nicht mehr aktiviert werden.
Gruß
Norbert
AW: Button-Backcolour
20.01.2006 16:59:15
Daniel
Wie soll es also funktionieren? Beschreib es mir :-)
AW: Button-Backcolour
20.01.2006 17:04:06
Josef
Hallo Norbert!
Private Sub CheckBox1_Click()
CommandButton1.Enabled = CheckBox1

CommandButton1.BackColor = IIf(CheckBox1, RGB(0, 255, 0), RGB(255, 0, 0))
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Danke euch beiden!
20.01.2006 17:32:47
Norbert
Hallo,
danke nochmals.
Josef sein Vorschlag klappt prima.
Gruß
Norbert
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige