Fortsetzung der Suchprozedur
10.12.2003 14:04:17
Rainer
ich weiß einfach nicht, wie ich das Script dazu bringen kann, nach der Suche und dem ersten Treffer (der nicht unbedingt mein Ziel gewesen sein muss) weiterzusuchen. Bei jedem Treffer sollen die Daten aus der Liste in die Userform-Maske übertragen werden. Habe noch keinen Lösungsansatz gefunden. Wer könnte mir auf die Sprünge helfen.
Hier mein Suchfragment:
Wo müsste der Ansatz sein, das Makro zum Weitersuchen zu motivieren?
Private Sup CommandButton3_Click()
Set frm = UserForm1
With frm
Sheets("Gelesene").Select
Range("A:A").Select
On Error Goto fehler
Selection.Find(What:=.TextBox1.Value. After:=ActriveCelle, _
LookIn:=xlFormulas, lookat:=xlPart, searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False).Activate
.TextBox1.Value = ActiveCell.Value
.TextBox2. = ActiveCell.Offset(0, 1).Value
.TextBox10 = ActiveCell.Offset(0, 2).Value.
.TextBox4. = ActiveCell.Offset(0, 3).Value
.CheckBox1. = ActiveCell.Offset(0, 4).Value
.TextBox5. = ActiveCell.Offset(0, 5).Value
.TextBox11. = ActiveCell.Offset(0, 6).Value
.TextBox12. = ActiveCell.Offset(0, 7).Value
.TextBox3. = ActiveCell.Offset(0, 8).Value
.TextBox9. = ActiveCell.Offset(0, 9).Value
.TextBox8. = ActiveCell.Offset(0, 10).Value
.ComboBox8. = ActiveCell.Offset(0, 11).Value
.ComboBox6. = ActiveCell.Offset(0, 12).Value
ComboBox7. = ActiveCell.Offset(0, 13).Value
.ComboBox4. = ActiveCell.Offset(0, 14).Value
.TextBox6. = ActiveCell.Offset(0, 15).Value
.ComboBox5. = ActiveCell.Offset(0, 16).Value
.TextBox7. = ActiveCell.Offset(0, 17).Value
Exit Sub
Fehler:
MsgBox "Das Objekt : " & _
.TextBox1.Value & " konnte nicht gefunden werden!"
End With
End Sub
mfg Rainer