Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1732to1736
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
Inhaltsverzeichnis

Textboxes farbig hinterlegt

Textboxes farbig hinterlegt
20.01.2020 16:30:28
Jörg
Hallo Fachleute,
nachstehenden Code hatte mir freundlicherweise Nepumuk ins Klassenmodul reingebastelt.
Wie kann ich es machen, dass dieser Code nur für die Textboxen 1 To 19 gilt und nicht für Textbox20.
Textbox20 hab ich mir als Suchfeld eingerichtet.
Mein Versuch einer Schleife war nicht so toll.
Vielen Dank für Eure Hilfe.
VG Jörg
Option Explicit
Private WithEvents mobjTextBox As MSForms.Textbox
Private Sub Class_Terminate()
Set Textbox = Nothing
End Sub
Friend Property Get Textbox() As MSForms.Textbox
Set Textbox = mobjTextBox
End Property
Friend Property Set Textbox(ByRef probjTextBox As MSForms.Textbox)
Set mobjTextBox = probjTextBox
End Property
Private Sub mobjTextBox_Change()
With Textbox
If .TextLength  0 Then
.BackColor = &H80000005
Else
.BackColor = &HFF&
End If
End With
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Textboxes farbig hinterlegt
20.01.2020 17:01:54
Nepumuk
Hallo Jörg,
poste mal den Code vom UserForm_Initialize - Event.
Gruß
Nepumuk
AW: Textboxes farbig hinterlegt
20.01.2020 17:06:34
Jörg
Hallo Nepumuk,
ich hoffe, es ist der richtige.
'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
Private Sub UserForm_Initialize()
Dim objControl As Control
Dim objTextBoxClass As clsTextBox
Set TextBoxClassCollection = New Collection
For Each objControl In Controls
If TypeOf objControl Is MSForms.Textbox Then
objControl.BackColor = &H80000005
Set objTextBoxClass = New clsTextBox
Set objTextBoxClass.Textbox = objControl
Call TextBoxClassCollection.Add(Item:=objTextBoxClass)
End If
Next
Set objTextBoxClass = Nothing
Call LISTE_LADEN_UND_INITIALISIEREN 'Aufruf der entsprechenden Verarbeitungsroutine
End Sub

VG Jörg
Anzeige
AW: Textboxes farbig hinterlegt
20.01.2020 17:12:22
Nepumuk
Hallo Jörg,
teste mal:
Private Sub UserForm_Initialize()
    Dim lngIndex As Long
    Dim objTextBoxClass As clsTextBox
    Set TextBoxClassCollection = New Collection
    For lngIndex = 1 To 19
        Controls("TextBox" & CStr(lngIndex)).BackColor = &H80000005
        Set objTextBoxClass = New clsTextBox
        Set objTextBoxClass.TextBox = Controls("TextBox" & CStr(lngIndex))
        Call TextBoxClassCollection.Add(Item:=objTextBoxClass)
    Next
    Set objTextBoxClass = Nothing
    Call LISTE_LADEN_UND_INITIALISIEREN 'Aufruf der entsprechenden Verarbeitungsroutine
End Sub

Gruß
Nepumuk
Anzeige
AW: Textboxes farbig hinterlegt
20.01.2020 17:20:04
Jörg
Hallo Nepumuk,
getestet !! Und es funktioniert.
Danke Dir!!
Vg Jörg

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige