Clever-Excel-Forum

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. Huh

Googlen hat bislang nicht die gewünschten Befehle ausgegeben..

Viele Grüße
Aleks

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

fullevent

Steffl