Textfeld mit bedingter Formatierung
Juergen Bohl
kennt ihr einen Weg in einem Textfeld eine bedingte Formatierung
darzustellen?
mein Problem:
- ist der %-Wert im Textfeld >10% dann= gr�nes Textfeld
- ist der %-Wert im Textfeld 0 bis 9% dann= gelbes Textfeld
- ist der %-Wert im Textfeld >-0% dann= gelbes Textfeld
Habe mal als Anregung mir ein VBA Script einkopiert- wie erwartet bei mir -
funzt net.
Private Sub TextBox1()
If TextBox1.Value <> "" And IsNumeric(TextBox1.Value) Then
If TextBox1.Value < 0 Then
TextBox1.ForeColor = RGB(255, 50, 55)
Else
TextBox1.ForeColor = RGB(255, 50, 255)
End If
End If
End Sub
K�nnte mir jemand auf die Spr�nge helfen das hinzukrigen? Danke im voraus!
mein Beispiel hier:
http://tinyurl.com/y9wpmjw
--
Gruss, Juergen
Alexander Wolff
Juergen Bohl verlautbaren, evtl. nachfolgend zitiert:
Mit einem
verkn�pften Bild
Alt-Umschalt Bearbeiten Bild kopieren/einf�gen
dann einen Bezug zum Quellbereich eingeben =A1:B2 oder =A1
bekommst Du das sogar ohne VBA hin: www.xxcl.de/files/textfeld.xls
--
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2
Andreas Killer
> Könnte mir jemand auf die Sprünge helfen das hinzukrigen? Danke im voraus!
Die Sub sieht schon okay aus, nur ist der Kopf nicht der richtige.
Platziere sie in das Codemodul des Tabellenblattes in dem die Textbox
ist und benenne sie in TextBox1_Change um. Dann wird der Code jedesmal
ausgeführt wenn sich der Inhalt der Textbox ändert.
Andreas.
Juergen Bohl
> bekommst Du das sogar ohne VBA hin: www.xxcl.de/files/textfeld.xls
funzt prima, besten Dank!
--
Gruss, Juergen
Juergen Bohl
> Platziere sie in das Codemodul des Tabellenblattes in dem die Textbox
> ist und benenne sie in TextBox1_Change um. Dann wird der Code jedesmal
> ausgef�hrt wenn sich der Inhalt der Textbox �ndert.
...will nicht klappen. habs mit der "Bildvarainate" gel�st.
Aber Danke f�r den Hinweis!
--
Gruss, Juergen