Office: TextBox Bedingt Formatieren

djell · 23. Januar 2012

Hallo Leute,

würde gerne eine TextBox in einer UserForm Bedingt Formatieren und zwar mit mehreren Bedingungen.

Hab schon mal folgendes gefunden und bisschen angepast nur leider schaffe ich es nicht ganz zufriedenstellend!
Code:

Private Sub TextBox1_Change()

If TextBox1.Value "" And IsNumeric(TextBox1.Value) Then
If TextBox1.Value < Label5 + "0,3" Then
TextBox1.ForeColor = RGB(0, 255, 0)
Else
TextBox1.ForeColor = RGB(255, 0, 0)
End If
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich breuchte es so das die Textbox1 bei < Label5 - "0.3" und bei > Label5 + "0,3" Rot wird und ansonsten Grün ist!
Wie muss ich das machen?

Danke schon mal!

:)

hary · 24. Januar 2012

Hallo Djell
so?
Code:

Private Sub TextBox1_Change()
If TextBox1.Value "" And IsNumeric(TextBox1.Value) Then
If Abs(CDbl(Label5.Caption)) >= 0.3 Then
TextBox1.ForeColor = vbRed
Else
TextBox1.ForeColor = vbGreen
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

djell · 24. Januar 2012

In diesem fall wird die textbox immer Rot egal was ich eingebe!

hary · 24. Januar 2012

Hallo

bei < Label5 - "0.3" und bei > Label5 + "0,3"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du wolltest doch je nach Wert vom Label die farbe oder meinst Du die textbox?
gruss hary
edit fuer textBox:
Code:

Private Sub TextBox1_Change()
If TextBox1.Value "" And IsNumeric(TextBox1.Value) Then
If Abs(CDbl(TextBox1)) >= 0.3 Then
TextBox1.ForeColor = vbRed
Else
TextBox1.ForeColor = vbGreen
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

djell · 24. Januar 2012

Ja es sollte sich die TextBox von der Farbe her ändern. In Label5 steht ein Wert von diesem Wert + 0,3 und - 0,3 alles was in der TextBox innerhalb des Wertes steht soll Grün sein alles andere Rot!

hary · 24. Januar 2012

Edit: geloescht siehe unten

djell · 24. Januar 2012

Ja schon nur egal was im Label steht wird die Zahl in der TextBox immer Rot bei mir!

hary · 24. Januar 2012

hallo Djell
Kommando zurueck, falsch verstanden.
so gehts.
Code:

Private Sub TextBox1_Change()
If TextBox1.Value "" And IsNumeric(TextBox1.Value) Then
If CDbl(TextBox1) > Abs(CDbl(Label5.Caption)) Then
TextBox1.ForeColor = vbRed
Else
TextBox1.ForeColor = vbGreen
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

djell · 24. Januar 2012

Ja ok, aber was mach ich mit den +- 0,3?

hary · 24. Januar 2012

Hallo Djell
Schau mal unter #8 hatte die Aufgabenstellung falsch verstanden.
gruss hary

djell · 24. Januar 2012

Hab ich schon gesehen.

Eiso nochmal:

In Label5 steht zB. die Zahl 100,5 dann sollte wenn ich in die TextBox1 die Zahl 100,81 eingebe die Zahl in der TextBox1 Rot werden, wenn ich die Zahl 100,79 eingebe soll sie Grün sein, bei 100,25 auch Grün, bei 100,19 soll sie wieder Rot sein. Immer von der Zahl in Label5 ausgegangen + 0,3 und - 0,3 sollte sich die Zahl in TextBox1 von der Farbe her ändern!

EarlFred · 25. Januar 2012

Hallo djell,

meinst Du so?
Code:

Private Sub TextBox1_Change()
Me.TextBox1.BackColor = RGB(255, 0, 0)
If IsNumeric(Me.TextBox1) Then
If CDbl(Me.TextBox1) = Me.Label5.Caption - 0.3 Then
Me.TextBox1.BackColor = RGB(0, 255, 0)
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

djell · 25. Januar 2012

Ja genau so brauch ich das!!!

Super Danke für die Hilfe!

Office: TextBox Bedingt Formatieren

TextBox Bedingt Formatieren

TextBox Bedingt Formatieren

TextBox Bedingt Formatieren

TextBox Bedingt Formatieren

TextBox Bedingt Formatieren

TextBox Bedingt Formatieren - Similar Threads - TextBox Bedingt Formatieren

Textboxen

Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen

Text Box

VBA Kopieren von Zelleninhalte in Textbox

VBA Textbox macht was sie will

Suchfunktion für Listbox in Textbox

Textbox: Ans Ende der Eingabe springen