Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1172to1176
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA textbox farbe
Markus
Hallo,
wie kann ich die farbe einer textbox werteabhängig ändern?
ich habe eine textbox die mit einer zelle verlinkt ist. jetzt soll sich die farbe automatisch ändern wenn der wert eine bestimmte höhe erreicht. z.b. textbox oder schriftfarbe rot wenn wert größer 85%.
danke für die hilfe
markus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA textbox farbe
20.08.2010 10:32:03
otto
Hi,
Sub TextBox1_Change()
If Textbox1 > 85 Then TextBox1.BackColor = vbRed
End Sub
otto
Textbox wertabhängig einfärben
20.08.2010 10:32:22
NoNet
Hallo Markus,
kopiere den folgenden Code in das Klassenmodul des Tabellenblattes (also: Name des Blattes im Blattregister per rechts anklicken und "Code anzeigen..." auswählen und Code in das nun geöffnete VBA-Fenster kopieren) :
Private Sub Worksheet_Calculate()
tbFarbeAendern
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
tbFarbeAendern
End Sub
Sub tbFarbeAendern()
With TextBox1
Select Case Range(.LinkedCell).Value 'die verlinkte Zelle
Case ""
.BackColor = vbWhite
Case 0 To 0.25 '0.25 = 25%
.BackColor = vbGreen
Case 0.25 To 0.75
.BackColor = vbYellow
Case Else
.BackColor = vbRed
End Select
End With
End Sub
Die Werte und die Farben musst Du entsprechend anpassen !
Gruß, NoNet
Anzeige

10 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige