Suchen mit UserForm
05.01.2006 13:44:28
Roger
Ich möchte gerne folgendes Problem lösen können. Ich suche mit einem UserForm nach Daten in verschiedenen Blättern. Soweit klappt das mit dem nachstehenden Code ganz gut. Nun kann es aber sein, dass in Spalte B der Suchbegriff mehrmals vorkommt. Angezeigt wird mir jedoch immer nur der erste gefundene Datensatz im UserForm. Wie kann ich es bewerkstelligen das ich auch die anderen Daten im Userform anzeigen kann? Mit Blättern oder so ähnlich in der TextBox1? Ich hoffe ich habe mich klar genug ausgedrückt.
Function findeAufBlatt(SheetName As String)
Sheets(SheetName).Select
With UserForm2
Range("B:B").Select
On Error GoTo fehler
Selection.Find(What:=.TextBox1.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart).EntireRow.Select
.TextBox10.Value = ActiveCell.Offset(0, 0).Value
.TextBox2.Value = ActiveCell.Offset(0, 2).Value
.TextBox7.Value = ActiveCell.Offset(0, 3).Value
.TextBox3.Value = ActiveCell.Offset(0, 4).Value
.TextBox4.Value = ActiveCell.Offset(0, 5).Value
.TextBox5.Value = ActiveCell.Offset(0, 6).Value
.TextBox6.Value = ActiveCell.Offset(0, 7).Value
.TextBox8.Value = ActiveCell.Offset(0, 8).Value
.TextBox9.Value = ActiveCell.Offset(0, 9).Value
FoundOn = SheetName
End With
fehler:
End Function
Besten Dank für eure Hilfe.
Gruss Roger