Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Links zu Excel-Dialogen

CheckBox CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige