TextBoxen einfärben

Ich wünsche allen einen wunderschönen Guten Abend und wem vergönnt 'nen schönen Feierabend!!!
Meine Problemstellung:
In einer UF stehen untereinander mehrere TextBoxen:
TextBox122 TextBox182 TextBox242 TextBox302
TextBox123 TextBox183 TextBox243 TextBox303
usw. bis
TextBox181 TextBox241 TextBox301 TextBox361
Nun möchte ich gern, dass wenn in TextBox122, 123 usw. bis TextBox181 der Focus ist, bzw. gerade eine Eingabe erfolgt die gerade ausgewählte und die Nachbar - TextBox mit der Farbe grau (&H00C0C0C0&) hinterlegt wird und beim Verlassen soll dann wieder der Ursprung weiß hergestellt werden! Wie kann ich das am besten realisieren. Ich schreibe auch 60x 'nen Code!!! Danke euch im Voraus!!!
Gruß Frank H.!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

hallo Frank,
das würde z.B. über das Enter- und Exit-Ereignis laufen. Dummerweise sind diese Events nicht in einem Klassenmodul verfügbar - sprich viel Code und viel Fleißarbeit. Ich vermute mal, du willst dir da irgendwie sowas wie 'ne Tabelle in 'nem Userformular nachbauen, dann wäre z.B. das Spreadsheet 'ne Alternative.
zu deiner Frage bzgl. TextBoxes:


Private Sub TextBox1_Enter()
Me.TextBox1.BackColor = &HC0C0C0
Me.TextBox2.BackColor = &HC0C0C0
End Sub


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.BackColor = &HFFFFFF
Me.TextBox2.BackColor = &HFFFFFF
End Sub


Private Sub TextBox2_Enter()
Me.TextBox1.BackColor = &HC0C0C0
Me.TextBox2.BackColor = &HC0C0C0
End Sub


Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.BackColor = &HFFFFFF
Me.TextBox2.BackColor = &HFFFFFF
End Sub

Gruß
Christian

Private Sub ColorTextbox(iNr As Integer, Optional boolFarbe As Boolean) 'Aktionen beim Eintritt und beim Verlassen der Textbox iNr Dim lngFarbe If boolFarbe = True Then lngFarbe = &HC0C0C0 'grauer Hintergrund Else lngFarbe = &H80000005 'weisser Hintergrund End If Me.Controls("TextBox" & iNr).BackColor = lngFarbe Me.Controls("TextBox" & iNr + 60).BackColor = lngFarbe End Sub Private Sub TextBox122_Enter() Call ColorTextbox(122, True) End Sub Private Sub TextBox122_Exit(ByVal Cancel As MSForms.ReturnBoolean) Call ColorTextbox(122) End Sub Private Sub TextBox123_Enter() Call ColorTextbox(123, True) End Sub Private Sub TextBox123_Exit(ByVal Cancel As MSForms.ReturnBoolean) Call ColorTextbox(123) End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

TextBoxen einfärben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread