Mit UserForm suchen und Weitersuchen
11.04.2004 19:57:11
Oswald
bin mal wieder soweit das ich euere Hilfe brauche.
Habe ein Tabellenbaltt mit einem Datenbestend, ein UserForm mit dem ich Daten eingeben und auch suchen kann.
Was ich jetzt noch nicht hinbekomme ist das ich weitersuchen kann.
Wenn möglich mit einem klick auf den gleichen Button wie ich das suchen starte.
Hier mein Code für den Suchschalter.
<pre>
Private Sub CommandButton4_Click() 'Maschinennr. suchen
Dim frm As Variant
Dim suchen As String
Set frm = UserForm2
'On Error GoTo fehler
Sheets("Daten").Select
Range("F:F").Select
suchen = UserForm2.TextBox8.Value 'Maschinennr. zuweisen
Selection.FindNext(What:=suchen, After:=ActiveCell, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Activate
With frm
.TextBox1.Value = ActiveCell.Offset(0, -5).Value 'Datum
.TextBox2.Value = Format(ActiveCell.Offset(0, -4).Value, "hh:mm") 'Zeit von
.TextBox3.Value = Format(ActiveCell.Offset(0, -3).Value, "hh:mm") 'Zeit bis
.TextBox4.Value = ActiveCell.Offset(0, -2).Value 'Kunde
.TextBox5.Value = ActiveCell.Offset(0, -1).Value 'Ort / Land
.TextBox8.Value = ActiveCell.Value 'Maschinennummer
.TextBox9.Value = ActiveCell.Offset(0, 1).Value 'PKW KM
.TextBox6.Value = ActiveCell.Offset(0, 2).Value 'Pause
.TextBox7.Value = ActiveCell.Offset(0, 3).Value 'Spesen
End With
Exit Sub
fehler:
MsgBox ("Die Maschinennr. " & frm.TextBox1.Value & " konnte nicht gefunden werden!")
End Sub</pre>
Danke euch mal wieder im vorraus
Gruß
Oswald