Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 09:22:11
Wenn Istleer über mehrere Blätter
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
544to548
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBox aktiv Farbe

TextBox aktiv Farbe
13.01.2005 16:01:33
walter
Hallo,
wie kann ich die aktive TextBox farbig gestalten.
Immer wenn der Focus drauf ist, soll Rot (hell) erscheinen.
Wenn die TextBox verlassen wird soll wider weiß sein.
Gruß walter

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox aktiv Farbe
13.01.2005 16:11:01
Josef Ehrensberger
Hallo Walter!
Das geht zB. so:

Private Sub TextBox1_Enter()
TextBox1.BackColor = &HC0C0FF
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BackColor = &H80000005
End Sub


Gruß Sepp
AW: TextBox aktiv Farbe
13.01.2005 16:23:39
walter
Hallo Sepp,
herzlichen Dank für die Info.
Ich habe allerdings jede Menge (15 ) TextBoxen,
wie geht das denn ?
Gruß walter
AW: TextBox aktiv Farbe
13.01.2005 16:31:15
Josef Ehrensberger
Hallo Walter!
Über ein Klassenmodul!
Ist bei "VBA nur mit Rekorder" aber nicht so einfach.

Gruß Sepp
Bitte Info...
13.01.2005 16:47:43
walter
Hallo Sepp,
wie muß ich das machen ?
Alle TextBoxen etv. auch ComBoBoxen dann einsetzen ?
Gruß Walter
Anzeige
AW: Bitte Info...
13.01.2005 19:44:12
Josef Ehrensberger
Hallo Walter!
Klassenmodul ist nicht, weil dort das Ereignis "Enter" bzw. "Exit" nicht zur verfügung steht!
Abkürzen kannst du das aber zB. so:

Private Sub TextBox1_Enter()
txt_F TextBox1
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txt_N TextBox1
End Sub
Private Sub TextBox2_Enter()
txt_F TextBox2
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txt_N TextBox2
End Sub
Private Sub TextBox3_Enter()
txt_F TextBox3
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txt_N TextBox3
End Sub
Private Sub TextBox4_Enter()
txt_F TextBox4
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txt_N TextBox4
End Sub
Private Sub txt_F(box As MSForms.Control)
box.BackColor = RGB(255, 192, 192)
End Sub
Private Sub txt_N(box As MSForms.Control)
box.BackColor = RGB(255, 2552, 255)
End Sub


Gruß Sepp
Anzeige
DANKE
13.01.2005 19:52:55
walter
Hallo Sepp,
Danke das ist ein sehr gutes Beispiel !!!!
Walter
AW: TextBox aktiv Farbe
13.01.2005 16:16:45
Willie
Hallo Walter
So funktioniert es! Es wird rot wenn die Textbox Aktiv ist 

Private Sub TextBox1_Enter()
TextBox1.BackColor = RGB(255, 0, 0)
End Sub

und wenn du sie verlässt, dann wird sie wieder weiss

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BackColor = RGB(255, 255, 255)
End Sub

Gruß
Willie
Danke
13.01.2005 16:25:07
walter
Hallo Willie,
Danke für die schnelle Info.
Wie bei Sepp habe jedoch 15 TextBoxen auf der UF kann man das gemeinsam regeln ?
Gruss Walter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige