Probleme mit SetFocus in UserForm

[Pergus]

Wow, genial, funktioniert perfekt! DANKEEEEEEEEE Andreas

Darf ich Dich fragen, was da genau passiert, ich kann es nicht ganz nachvollziehen?

[Hondo]

Hallo,
funktioniert ganz einfach
ein Bezeichnungsfeld "cover1" mit gleichem Hintergrund ohne Rahmen eingefügt und so positioniert dass die Textfelder 2-4 verdeckt werden. Manuell veschoben und Top und Height Werte aufgeschrieben. Top+Height sind zusammen immer 144, und Top-Werte haben eine Schrittweite von 24 bei einem Startwert von 60. In Abhängigkeit des Feldes welches den After update auslöst wird der Top angepasst und die Höhe gesetzt:

Private Sub CoverTxt(ByVal lnum As Long)
    Ufrm_Rabatte.cover1.Top = 60 + 24 * (lnum - 1)
    Ufrm_Rabatte.cover1.Height = 144 - Ufrm_Rabatte.cover1.Top
End Sub

Beim Start wird CoverTxt 1 ausgeführt, d.h. Top = 60.
Beim letzten Feld wird CoverTxt 4 ausgeführt, d.h. Top = 132, und alle Felder sichtbar.

Gruß Andreas

[Pergus]

Vielen Dank Andreas,
großartig, wie Du das gelöst hast!

Nochmals vielen Dank! 
Gustav