Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Färben von Textboxen in Userform

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



GrußformelHomepage


  

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



GrußformelHomepage


 

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