Supportnet / Forum / Tabellenkalkulation
Automatische Formatierung im usrForm
Frage
Hallo zusammen,
Ich möchte gerne das sich in meiner Formular-Textbox die Hintergrundfarbe rot färbt wenn der Wert 1 größer als Wert 2 wird. Kann mir vielleicht jemand sagen warum der Code 1 nicht funktioniert? Scheint mir ein Problem mit der If Bedingung zu sein. Code 2 funktioniert bestens.
Bitte helft mir.
[b]Code 1:
Private Sub TextBox1_Change()
wert1 = Me.TextBox1.Value
wert2 = ActiveSheet.Range("C3")
If wert1 > wert2 Then
Me.TextBox1.BackColor = RGB(128, 64, 128)
End If
End Sub
Code 2
Private Sub UserForm_Click()
Me.TextBox1.BackColor = RGB(128, 64, 128)
End Sub[/b]
Antwort 1 von mario1234
Hat sich erledigt.
Der wert1 hat sich als String deklariert gehabt.
Gruß Mario
Der wert1 hat sich als String deklariert gehabt.
Gruß Mario