Hi gfrantsen1961,
thanks for the reply. Below you can find the initializing Sub. As you can see, I am not specifying a certain position for the userform so that it appears in the middle of the screen (please ref to attached screen shot). The userform itself looks as desired, the first entry of the list is shown inside the ComboBox frame, but the remaining entries appear in the upper right hand corner. Of course, I could show the ComboBox itself on a different position on the screen, but how about the list that appears in the upper left hand corner which should appear directly below the ComboBox upon the .DropDown command? It works OK when I click on button with capture List (ref to code below for btnStart).
Can you help?
Thanks in advance!
Mike 1001
UserForm.jpg
Private Sub UserForm_Initialize()
TextBox1.Text = <data from public variable, here first three digits of last name>
fragment = TextBox1.Text
Call Addressbook(fragment) ' creating the list to select from in the ComboBox
ComboBox1.ListIndex = 0
ComboBox1.DropDown
End Sub
Private Sub btnStart_Click()
fragment = TextBox1.Text
ComboBox1.Clear
Call Adressbuch(fragment)
ComboBox1.ListIndex = 0
End Sub
Bookmarks