Rahmen in Userform

Question

Hallo,
Ich habe in einer userform zwei Optionsschaltflächen. Beim Aufrufen
dieser userform erscheint um die erste Option ständig ein Hilfsrahmen.
Weiß jemand wie ich den wegkriege? Danke für jeden Tipp.
Gruß a.

Answer 1

Hallo Andreas,

ich nehme mal an, dass das der Rahmen, der anzeigt, wo der Focus gerade steht (Klick auf Optionsfeld 2 -> Rahmen ist jetzt hier).
Das einfachste dürfte sein, beim Starten der Userform den Focus z.B. auf einen vorhandenen Button zu stellen:

With UserForm1
.CommandButton1.SetFocus
.Show
End With

Falls die Optionsfelder voneinander abhänging sind, kannst du sie auch gruppieren (Rahmen aus der Werkzeugsammlung einfügen und Optionbuttons in den Rahmen ziehen). Dann ist beim Starten auch kein Button mit einem Hilfsrahmen versehen,

Gruß

M.O.

Answer 2

Hallo M.O.
danke für deine Tipps. habe beides ausprobiert, den blöden Rahmen aber trotzdem nicht los gekriegt. Ich hänge mal den code dran, vielleicht siehst du einen Fehler...?

Private Sub OptionButton1_Click()
'With UserForm1
' .CommandButton1.SetFocus
' .Show
'End With
RngA = "R"
Unload UserForm1
End Sub

Private Sub OptionButton2_Click()
RngA = "E"
Unload UserForm1
End Sub

Private Sub UserForm_Click()

End Sub

Gruß A.

Answer 3

Hallo Andreas,

der Code für den Setfocus gehört in den Code, mit dem du die Userform startest und nicht in den Code der Buttons.

Also z.b. so:

Sub start_Userform()

With UserForm1
.CommandButton1.SetFocus
.Show
End With

End Sub

Gruß

M.O.

Answer 4

Hallo Andreas,

zur Verdeutlichung mal ein kleines Beispiel: KLICK

Gruß

M.O.

Answer 5

Danke M.O., dein Tipp hat mein Problem gelöst und ich habe was dazugelernt!
Gruß Andreas