Private Sub przSuchen()
lstAusgabe.Clear
mSuchen = txtSuchen.Text
dyHaupt.movefirst
dyHaupt.FindFirst "Bezeich = '" & mSuchen & "'"
If dyHaupt.NoMatch Then
MsgBox "Keine Daten gefunden.Versuchen sie es bitte erneut!", vbOKOnly, _
  "Meldung"
przZurück
Else
mSchalter = 1
Do While mSchalter = 1
przAusgabeSuchen
dyHaupt.MoveNext
If dyHaupt.EOF Then
mSchalter = 0
Else
If mSuchen <> dyHaupt!Bezeich Then
mSchalter = 0
End If
End If
Loop
End If
End Sub
 
 
 
Sub przAusgabeSuchen()
mLtd = dyHaupt!Ltd
mLtd = UCase(mLtd)
mBezeich = dyHaupt!Bezeich
mBezeich = UCase(mBezeich)
mKatego = dyHaupt!Katego
mKatego = UCase(mKatego)
mMedium = dyHaupt!Medium
mMedium = UCase(mMedium)
mTeil = dyHaupt!Teile
mTeil = UCase(mTeil)
mZeile = mLtd + Space(8 - Len(mLtd)) + mBezeich + Space(73 - Len(mBezeich)) + _
  mTeil + Space(60 - Len(mTeil)) + mKatego + Space(9 - Len(mKatego)) + mMedium
lstAusgabe.AddItem mZeile
txtSuchen.SelStart = 0
txtSuchen.SelLength = 82
txtSuchen.SetFocus
End Sub