Textbox Hintergrundfarbe bei Multipage
30.01.2019 07:42:04
Sascha
ich hoffe es kann mir hier jemand helfen. Ich habe eine UserForm mit mehreren Frames in denen sich Textboxen und Multipages befinden. Wenn eine Box aktiv ist wird die Hintergrundfarbe in gelb geändert. Mein erstes Problem dass ich hatte, war beim Wechsel von einer Frame zur andern, dass sich die letzte Textbox nicht wieder in weiß geändert hatte. Dies habe ich durch den nachfolgenden Code beseitigt und funktioniert.
Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'verlassen von Frame1 Textbox weiß färben
Controls(Frame1.ActiveControl.Name).BackColor = vbWhite
End Sub
In 3 Frames habe ich nun Multipages. Problem: Beim verlassen der Multipage in den nächsten Frame bleibt die letzte Textbox gelb gefärbt und der Hintergrund der Multipage wird weiß. Wie kann ich verhindern das sich der Hintergrund der Multipage weiß färbt bzw die letzte TextBox sich wieder auf weiß umstellt?
Für die einzelnen Textboxen (Bsp.) habe ich den nachfolgenden Code verwendet
Private Sub TextBox1_Kunde_Enter()
'aktivierte Zelle gelb färben
TextBox1_Kunde.BackColor = vbYellow
End Sub
Private Sub TextBox1_Kunde_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'deaktivierte Zelle weiß färben
TextBox1_Kunde.BackColor = vbWhite
End Sub
Bitte um Hilfe und vielen Dank mal schon im voraus.
LG
Sascha