default value formatieren

[fullevent]

Hallo zusammen,

ich habe mir eine UserForm erstellt und mit Clear() werden die ganzen Eingabefelder wieder geleert bzw. auf die eingestellten default values zurück gesetzt..

Hier der Code dazu:

Code:

Sub Clear()
   Dim obj As Object

   For Each obj In Me.Controls
       If Left(obj.Name, 4) = "txt_" Then
           obj.Value = ""
       End If
   Next obj
   messreiheanlegen.dropdown.Value = "1"
   With Me
       With dropdown
           .Clear
           .AddItem ("0")
           .AddItem ("1")
           .AddItem ("2")
           .AddItem ("3")
           .AddItem ("4")
           .AddItem ("5")
       End With
       .btn_round = True
       .btn_square = False
       .ssic = True
       .alo = False
       txt_refwert.Value = "100"
       txt_messwerta.Value = "0"
       txt_messwertb.Value = "0"
       txt_messwertc.Value = "0"
       txt_messwertd.Value = "0"
   End With
End Sub

Soweit funktioniert das alles auch wunderbar. Ich würde das gerne nur so haben, dass die default values (z.B. txt_refwert, messwerta, usw.) am Besten in dunkel grau auf hell grauen Hintergrund stehen und erst bei der Benutzereingabe die eingetippten Werte dann schwarz auf weiß stehen. 

Ich hoffe jemand da draußen kann mir helfen.
Googlen hat bislang nicht die gewünschten Befehle ausgegeben.. 

Viele Grüße
Aleks

[Steffl]

Hallo,

formatier die Textboxen in den grauen Farben und verwende einen ähnlichen Codeaufbau wie hier

Code:

Option Explicit
Private bolWert As Boolean

Private Sub TextBox1_Change()
   If bolWert Then Exit Sub
   TextBox1.BackColor = vbWhite
   TextBox1.ForeColor = vbBlack
End Sub

Private Sub UserForm_Activate()
   bolWert = True
   TextBox1.Value = "Test"
   bolWert = False
End Sub