discussion In der USERFORM mehrere TextBoxen gleichzeitig in länge, höhe und Schriftgröße mittels VBA Kode gestalten.

[Josef24]

Hallo und guten Tag,

ich möchte "In der USERFORM mehrere TextBoxen gleichzeitig in Länge, Höhe und Schriftgröße mittels VBA Kode gestalten." Dazu habe ich einen VBA-Kode, der mir die Gestaltung abnimmt. Wenn ich aber diesen Kode deaktiviere, ist die Gestaltung der TextBoxen wieder dahin. Kann mir jemand in dem weiterhelfen, weil es doch sehr mühsam jede TextBox separat zu gestallten?

Option Explicit

Private Sub UserForm_Initialize()

    Dim ws As Worksheet
    Dim ctrl As MSForms.Control

    Set ws = ThisWorkbook.Worksheets("Stammdaten")

    For Each ctrl In Me.Controls

        If TypeName(ctrl) = "TextBox" Then

            'Darstellung
            ctrl.Font.Size = 12
            ctrl.Height = 24

            'Wert anhand des Tag-Feldes laden
            If Trim$(ctrl.Tag) <> "" Then
                ctrl.Value = ws.Range(ctrl.Tag).Value
            End If

        End If

    Next ctrl

End Sub