Mit UserForm in Tabelle suchen
25.11.2006 08:57:25
Mister
ich habe mit Hilfe dieses Forums eine UserForm erstellt womit man in eine Tabelle mit ca. 1000 Einträgen suchen kann. In ComboBox1 werden die Eingaben in Spalte A alphabetisch sortiert wiedergegeben. Doppelte Einträge werden bewusst nicht ausgefiltert. Durch klicken auf CommandButton1 wird die UF mit den entsprechenden Daten gefüllt. Hier mein Code:
Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Long
If ComboBox1.Value = "" Then
Text = "Wählen Sie eine Person aus!"
MsgBox Text, vbExclamation, "Schnellsuche"
Exit Sub
End If
For i = 6 To 550
If ComboBox1.Value = Sheets("Tabelle1").Cells(i, 3) & Format(", ") & Sheets("Tabelle1").Cells(i, 4) Then
TextBox2.Value = Sheets("Tabelle1").Cells(i, 5)
TextBox3.Value = Sheets("Tabelle1").Cells(i, 8)
TextBox5.Value = Sheets("Tabelle1").Cells(i, 6)
TextBox6.Value = Sheets("Tabelle1").Cells(i, 7)
TextBox7.Value = Sheets("Tabelle1").Cells(i, 9)
TextBox8.Value = Sheets("Tabelle1").Cells(i, 10)
End If
Next
End Sub
Die Suche an sich klappt reibungslos aber es kommt vor, dass eine Person mehrmals in der Tabelle vorkommt. Mit meinem Code bleibt Excel immer bei der ersten Übereinstimmung stehen und zeigt diese in die UF. Was muß ich machen damit Excel das zweite Vorkommen (oder dritte) einer Person auch in dieser Tabelle findet. Wenn z.B. der Name in ComboBox1 3x vorkommt und ich den zweiten dieser Namer auswähle, möchte ich das die dazugehörige Daten zu diesem zweiten Eintrag angezeigt werden. Ich hoffe ich habe mich verständlich ausgedruckt. Ich danke für eure Hilfe und wunsche ein schönes Wochenende!
Gruß
Mister B