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
|