Sub TextBox1_Change()
If Textbox1 > 85 Then TextBox1.BackColor = vbRed
End Sub
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
Um die Farbe eines Textfeldes in Excel VBA abhängig von einem Wert zu ändern, folge diesen Schritten:
Textfeld hinzufügen: Füge ein Textfeld (TextBox) zu deinem Excel-Arbeitsblatt hinzu.
Zelle verlinken: Verlinke das Textfeld mit einer Zelle. Dazu klicke mit der rechten Maustaste auf das Textfeld, wähle „Eigenschaften“ und trage im Feld „LinkedCell“ die Adresse der Zelle ein.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Klassisches Modul auswählen: Wähle im Projektfenster das entsprechende Arbeitsblatt aus. Klicke mit der rechten Maustaste darauf und wähle „Code anzeigen“.
Code einfügen: Füge den folgenden Code in das geöffnete Fenster ein:
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 SubWerte anpassen: Passe die Werte und die Farben entsprechend deinen Anforderungen an.
Eine Alternative zur Verwendung von VBA ist die bedingte Formatierung, die jedoch nicht direkt für Textfelder funktioniert. Stattdessen kannst du die Hintergrundfarbe von Zellen ändern, die mit dem Textfeld verlinkt sind. Dies wird über die Registerkarte „Start“ > „Bedingte Formatierung“ > „Neue Regel“ eingerichtet.
Angenommen, du hast ein Textfeld, das mit der Zelle A1 verlinkt ist. Du möchtest die Farbe ändern, wenn der Wert in A1 über 85% steigt. Der oben angegebene Code erfüllt genau diesen Zweck. Hier sind die spezifischen Bedingungen:
vbYellow, vbGreen, vbRed und andere vordefinierte Farbcodes für eine einfache Implementierung. Du kannst auch RGB-Werte verwenden, um spezifische Farben zu definieren, z.B. RGB(255, 0, 0) für Rot.1. Kann ich die Schriftfarbe der TextBox ebenfalls ändern?
Ja, du kannst die Schriftfarbe mit TextBox1.ForeColor = vbRed ändern, ähnlich wie bei der Hintergrundfarbe.
2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, dieser VBA-Code sollte in allen modernen Excel-Versionen funktionieren, die die Verwendung von VBA unterstützen.
3. Was ist, wenn ich mehrere TextBoxen habe?
Du kannst den gleichen Code für mehrere TextBoxen verwenden, musst jedoch die Referenz auf die spezifische TextBox entsprechend anpassen.