Userform Positionen von TextBoxen, Labels ändern

Question

Hallo,

ich habe in einer Userform ca. jeweils 20 TextBoxen bzw. Labels in einer Reihe untereinander stehen. Jetzt mochte ich dazwischen eine weitere Textboxreihe einfügen. Dafür muss ich die vorhandenen Einträge alle nach rechts verschieben. Manuell ist das ein rießiger Aufwand. Deshalb will ich über eine kleine Schleife und Zugriff auf die Option "Position/Left" das für jede Spalte erledigen lassen. Bisher klappt es aber nicht so wie gedacht.

For i = 25 To 43
    With UserForm3.Controls("Label" & i)
        .Left = 564
    End With
Next

Hat jemand einen Tipp?

Danke und Gruß A.

Answer 1

Hi,

die Position von Steuerelementen auf einem UserForm lässt sich nur zur Laufzeit ändern, d.h. du musst diesen Code vom Prinzip her ins Initialize- oder Activate-Ereignis einfügen - eine Verschiebung per VBA im VBA-Editor ist nicht möglich.

Bis später, Karin

Answer 2

Hallo Karin,

schön wieder etwas zu hören.

Wie immer hilfst du mir weiter!

Vielen Dank und Gruß.

A.