Backcolor von Textbox ändern
09.06.2013 19:12:57
Textbox
Ich möchte folgendes bewirken.
Über eine UserForm gebe ich in TextBoxen Daten ein und lasse bestimmte Werte aus Excelzellen wiederum in TextBoxen anzeigen. Das funktioniert auch sehr gut.
Es gibt jedoch bestimmte Musseingaben. D. h. am Anfang sollen alle TextBoxen, in denen Musseingaben erforderlich sind rot sein. Gebe ich einen Wert ein, so soll
sich die Backcolor auf grün ändern. Lösche ich die Eingaben wieder, so sollen alle Mussfelder wieder rot werden.
Wer kann mich hier unterstützen? Mussfeld ist z. B Datum.Text, Ve.Text, also überall, wo Werte in TextBoxen wiedergegeben werden.
Private Sub CommandButton1_Enter()
Dim Eingabe As Variant
Range("B2") = Datum.Text 'Datum in Zelle eintragen
Me.Wochentag.Text = Sheets("Flugplanung").Range("B3").Text 'Wochentag in Textbox _
wiedergeben
Range("B4") = Ve.Text 'Ve in Zelle eintragen
Range("B5") = Tankvolumen.Text 'Fassungsvermögen in Zelle _
eintragen
Range("B6") = Verbrauch.Text 'Verbrauch l/h in Zelle _
eintragen
Range("B7") = Windrichtung.Text 'Windrichtung in Zelle _
eintragen
Range("B9") = Windgeschwindigkeit.Text 'Windrichtung in Zelle _
eintragen
Range("B15") = Startzeit_1.Text 'Startzeit Strecke_1 in Zelle _
_
eintragen
Range("B16") = TC.Text 'Wert in Zelle B16 eintragen
Me.TH_1.Text = Sheets("Flugplanung").Range("B17").Text 'Wert aus Zelle in Textbox _
wiedergeben.
End Sub