Hallo,

ich habe eine UserForm mit einer ComboBox1, mit der ich einen bestimmten Mitarbeiter suchen will.

Ich möchte, dass beim Klick auf die DropDownListe nach den bereits eingegebenen Buchstaben (am Anfang des Namens und auch mittendrin) gefiltert wird.

Außderdem möchte ich bei Drücken der Returntaste den CommandButton1 bestätigen.

Ich habe bisher folgenden Code:

Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Sheets("Personaldatenbank").Range("D:D").Find(What:=ComboBox1.Text, Lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
TextBox2.Text = rng.Offset(0, -3)
TextBox3.Text = rng.Offset(0, -2)
TextBox4.Text = rng.Offset(0, -1)
TextBox6.Text = rng.Offset(0, 0)
TextBox5.Text = rng.Offset(0, 1)
TextBox7.Text = rng.Offset(0, 2)
TextBox8.Text = rng.Offset(0, 3)
TextBox9.Text = rng.Offset(0, 4)
TextBox10.Text = rng.Offset(0, 5)
TextBox11.Text = rng.Offset(0, 6)
TextBox12.Text = rng.Offset(0, 7)
TextBox13.Text = rng.Offset(0, 8)
TextBox14.Text = rng.Offset(0, 9)
TextBox15.Text = rng.Offset(0, 10)
TextBox16.Text = rng.Offset(0, 11)
TextBox17.Text = rng.Offset(0, 12)
TextBox18.Text = rng.Offset(0, 13)
TextBox19.Text = rng.Offset(0, 14)
TextBox20.Text = rng.Offset(0, 15)
TextBox21.Text = rng.Offset(0, 16)
TextBox22.Text = rng.Offset(0, 17)
TextBox23.Text = rng.Offset(0, 18)
    Exit Sub
Else
    MsgBox "Keine Übereinstimmung gefunden"
    Unload Me
End If

End Sub



Private Sub CommandButton2_Click()
Sheets("Abwesenheiten").Select
Personaldatenbank.Hide
End Sub


Private Sub CommandButton4_Click()
Sheets("Betriebsarzt").Select
Personaldatenbank.Hide
End Sub


Private Sub UserForm_Activate()
    ActiveWorkbook.Sheets("Personaldatenbank").Select
    Me.ComboBox1.ColumnCount = 2
    Me.ComboBox1.ColumnWidths = "2cm;3cm"
    Me.ComboBox1.RowSource = "D:E"
    Me.ComboBox1.SetFocus

End Sub