Habe Problem beim Suchen von Daten.Habe eine Tabelle(1.Spalte=Auftragsnummer).In der Spalte, sucht man eine Nummer und wenn diese gefunden wurde, wird der gesamte Datensatz der zur Nummer gehört in einer Userform mit 17 Textfeldern angezeigt.Klappt hervorragend!!! Aber...
Es kann vorkommen, daß die Nummer mehrmals in dieser Spalte vorkommt.Ich habe 2 weitere Buttons (vor und zurück)eingerichtet, in der Hoffnung, mich damit zwischen den gefundenen Datensätzen hin- und herzubewegen.Habe aber keinen Plan wie ich das hinkriegen soll.Hat irgendjemand von euch eine Idee? Es wäre echt klasse...
Commandbutton Suchen:
Private Sub Cmdsuch_Click()
Dim suchbegriff
Application.ScreenUpdating = False
suchbegriff = InputBox("gesuchte Herstellungsnummer:")
Worksheets("Emailbefundliste").Select
Range("a1").Select
suchennum suchbegriff
j = ActiveCell.Row
MsgBox j
TxtHnum.Value = Cells(j, 1).Value
Txtart.Value = Cells(j, 2).Value
Txtart2.Value = Cells(j, 3).Value
Txtart3.Value = Cells(j, 4).Value
TxtEmail.Value = Cells(j, 5).Value
Txtporen.Value = Cells(j, 6).Value
TxtPV.Value = Cells(j, 7).Value
Txtgepr.Value = Cells(j, 8).Value
Txtprüf.Value = Cells(j, 9).Value
Txtglüh.Value = Cells(j, 10).Value
TxtGrund.Value = Cells(j, 11).Value
TxtDeck.Value = Cells(j, 12).Value
TxtOfen.Value = Cells(j, 13).Value
TxtEdichte.Value = Cells(j, 14).Value
TxtBemerk.Value = Cells(j, 15).Value
TxtBemerk2.Value = Cells(j, 16).Value
TxtBemerk3.Value = Cells(j, 17).Value
Worksheets("hgrund").Select
Application.ScreenUpdating = True
End Sub
modul:
Sub suchennum(suchbegriff)
Columns("A:A").Select
Selection.Find(What:=suchbegriff, _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False).Select
End Sub
schon mal Danke für eure Bemühungen
Gruss Marian