Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
Screenshot zu CheckBox	CheckBox-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Userform
Screenshot zu Userform	Userform-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Label
Screenshot zu Label	Label-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Färben von Textboxen in Userform

• Färben von Textboxen in Userform von Josef vom 21.08.2008 07:38:32
• AW: Färben von Textboxen in Userform - von Hajo_Zi am 21.08.2008 07:53:38
  • AW: Färben von Textboxen in Userform - von Josef am 21.08.2008 08:03:40
• AW: Färben von Textboxen in Userform - von Hajo_Zi am 21.08.2008 07:57:16

Betrifft: Färben von Textboxen in Userform von: Josef
Geschrieben am: 21.08.2008 07:38:32

Guten Morgen!

Ich habe in einer UserForm 22 TextBoxen in denen Zahlen stehen.

Wenn eine positive Zahl in den Textboxen steht, dann soll der Hintergrund (Backcolor) grün gefärbt werden.
Wenn eine negative Zahl in den Textboxen steht dann soll der Hintergrund hellrot gefärbt werden.

Wie würde hier bitte eine VBA Lösung lauten?

Danke

Josef

Betrifft: AW: Färben von Textboxen in Userform von: Hajo_Zi
Geschrieben am: 21.08.2008 07:53:38

Hallo Josef,

Option Explicit

Private Sub TextBox1_Change()
    If TextBox1 = "" Then
        TextBox1.BackColor = RGB(255, 255, 255)
    ElseIf Left(TextBox1, 1) = "-" Or TextBox1 < 0 Then
        TextBox1.BackColor = RGB(255, 128, 128)
    Else
        TextBox1.BackColor = RGB(0, 255, 0)
    End If
End Sub

Betrifft: AW: Färben von Textboxen in Userform von: Josef
Geschrieben am: 21.08.2008 08:03:40

Hallo Hajo!

Herzlichen Danke für Deine Mühe und Deine Hilfe. Funktioniert bereits.

Schönen Tag noch

Josef

Betrifft: AW: Färben von Textboxen in Userform von: Hajo_Zi
Geschrieben am: 21.08.2008 07:57:16

Hallo Josef,

Option Explicit

Private Sub TextBox1_Change()
    If TextBox1 = "" Then
        TextBox1.BackColor = RGB(255, 255, 255)
    ElseIf Left(TextBox1, 1) = "-" Or TextBox1 < 0 Then
        TextBox1.BackColor = RGB(255, 128, 128)
    Else
        TextBox1.BackColor = RGB(0, 255, 0)
    End If
End Sub

Beiträge aus den Excel-Beispielen zum Thema "Färben von Textboxen in Userform"