Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nachfrage zu TexBox färben

Nachfrage zu TexBox färben
20.03.2005 15:09:54
Werner
Hallo allerseits
Hatte gestern von Ransi Hilfe zur Färbung TextBox für Zeit der Aktivierung erhalten.
Verwende nun mit kleinen Veränderungen folgendes Makro
Option Explicit

Private Sub TexBox1_Enter()
TexBox1.BackColor = QBColor(11)
End Sub


Private Sub TexBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TexBox1.BackColor = QBColor(15)
End Sub

Frage: Besteht die Möglichkeit bei etwa 20 vorhandenen Textfeldern mittels eines einzigen Makros allen die gleiche Bedingung zu stellen oder muss ich wirklich 20 mal, also für jede TexBox o. g. Code schreiben.
mfg Werner

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

Betreff
Datum
Anwender
Anzeige
AW: Nachfrage zu TexBox färben
20.03.2005 15:27:45
Nepumuk
Hallo Werner,
da wirst du in den sauren Apfel beißen müssen. In einem Klassenmodul kennt das Automatisierungsobjekt MSForms.TextBox die Ereignisse Enter und Exit nicht.
Gruß
Nepumuk
AW: Nachfrage zu TexBox färben
20.03.2005 16:17:55
Werner
Na gut, dann werde ich mich damit abfinden.
Aber noch eine letzte Frage zu dem Thema TexBox färben.
Kann ich es auch eine die Bedingung knüpfen, wenn Text vorhanden Färbung hier (11)belassen ansonsten (15) verwenden.
werner
AW: Nachfrage zu TexBox färben
20.03.2005 16:21:38
Bert

Private Sub TexBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TexBox1)=0 then TexBox1.BackColor = QBColor(15)
End Sub

Bert
Anzeige
AW: Nachfrage zu TexBox färben
20.03.2005 17:25:01
Werner
Bert, vielen Dank
War wieder mal ein lehrreiches Wochende für mich.
werner

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige