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

ChecBox1 Haken raus, Schrift wieder schwarz. Code kürzen

Forumthread: ChecBox1 Haken raus, Schrift wieder schwarz. Code kürzen

ChecBox1 Haken raus, Schrift wieder schwarz. Code kürzen
24.10.2024 15:20:33
Dieter(Drummer)
Guten Tag an alle .

Mit diesem Code wird u.a. beim 2ten Klick der Haken aus der Checkbox1 entfernt und die Schrift (ForeColor) wieder auf schwarzr gesetzt.
Es funktioniert prima.

Kann man diesen Code kürzen und wenn ja, wie?

Mit der Bitte um Hilfe,

grüßt
Dieter(Drummer) 
Private Sub CheckBox1_Click()

    If CheckBox1 Then ActiveCell.Value = TextBox2.Text Else ActiveCell.Value = ""

    UserForm1("Checkbox1").ForeColor = RGB(255, 0, 0)

    If UserForm1("Checkbox1").Value = False Then UserForm1("Checkbox1").ForeColor = vbBlack

End Sub

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ChecBox1 Haken raus, Schrift wieder schwarz. Code kürzen
24.10.2024 15:37:49
daniel
HI
ist Checkbox1 und Userform("Checkbox1") das selbe Element?
wenn ja, warum dann diese unterschiedliche Ansprache?

kürzer gehts mit IIF statt IF-THEN.
das IIF funktioniert ähnlich dem Excel-Wenn und kann bei Wertzuweisungen verwendet werden.
Es müssen aber beide Zweige in beiden Zuständen berechenbar sein, dh es kann nicht verwendet werden, um Fehler zu vermeiden. 

ActiveCell.Value = IIF(CheckBox1, Textbox2.Text, "")

UserForm1("Checkbox1").ForeColor = IIF(UserForm1("Checkbox1").Value, vbRed, vbBlack)


Gruß Daniel
Anzeige
AW: ChecBox1 Haken raus, Schrift wieder schwarz. Code kürzen
24.10.2024 20:07:22
Uduuh
Hallo,
statt kurz bevorzuge ich Übersichtlichkeit. 
Private Sub CheckBox1_Click()

  With CheckBox1

    If .Value Then

      ActiveCell = TextBox2

      .ForeColor = vbRed

    Else

      ActiveCell = ""

      .ForeColor = vbBlack

    End If

  End With

End Sub

IIF benutze ich nie.

Gruß aus'm Pott
Udo
Anzeige
AW: ChecBox1 Haken raus, Schrift wieder schwarz. Code kürzen
24.10.2024 20:12:00
Dieter(Drummer)
Danke Udo für Rückmeldung und Code.

Werde mich damit befassen.

Danke und Gruß,
Dieter(Drummer)
AW: ChecBox1 Haken raus, Schrift wieder schwarz. Code kürzen
24.10.2024 15:53:03
Dieter(Drummer)
Danke Daniel für Rückmeldung.

Ja, die Checkbox1 und Userform("Checkbox1") sind das selbe Element.

Danke für deinen kurzen Code, der prima funktioniert und ich werde mich mit "IIF" beschäftigen.
Danke nochmal und einen erfolgreichen Tag.

Gruß,
Dieter(Drummer)
Anzeige
AW: ChecBox1 Haken raus, Schrift wieder schwarz. Code kürzen
24.10.2024 18:05:00
daniel
ich frage mich, warum das selbe Element mal so und mal so benennst.
macht doch keinen Sinn.
AW: ChecBox1 Haken raus, Schrift wieder schwarz. Code kürzen
24.10.2024 20:18:59
Dieter(Drummer)
N'abend Daniel.

Die CheckBox1 ist auf der UserForm1 und es geht nur um diese CheckBox.
Dieser Code von dir macht genau das, was ich wollte, er färbt CheckBox1 bei Klick1 Caption in rot und bei Klick2 wieder in schwarz. 
UserForm1("Checkbox1").ForeColor = IIf(UserForm1("Checkbox1").Value, vbRed, vbBlack)


Gruß,
Dieter(Drummer)


Anzeige

Beliebteste Forumthreads (12 Monate)

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