|
Guten Tag,
ich bin dabei eine Eingabemaske für Excel zu schreiben. Es funktionmiert auch das meiste, außer das wie folgt:
Die Tabelle ist so aufgebaut, das man nach einer PN Nummer sucht um den jeweiligen Datensatz anzuzeigen. Allerdings kommt ein Fehler, wenn diese Nummer nicht in der Liste ist.
Private Sub CommandButton2_Click()
Dim suchen As Long
suchen = 2
'Fehler:
' MsgBox "Fehler"
Do While Tabelle1.Cells(suchen, 1).Value
If TextBox1.Text = Tabelle1.Cells(suchen, 1).Value Then
TextBox2 = Tabelle1.Cells(suchen, 2).Value
TextBox3 = Tabelle1.Cells(suchen, 3).Value
TextBox4 = Tabelle1.Cells(suchen, 4).Value
TextBox5 = Tabelle1.Cells(suchen, 5).Value
Exit Do
End If
suchen = suchen + 1
Loop
'On Error GoTo Fehler
End Sub
Baue ich das On error in den Lopp mit ein, habe ich logischerweise jedesmal eine unendlichSchleife, weil ja jedes mal +1 gezählt wird und es jedes mal praktisch ein Error geben würde. Ich suche aber eine möglichkeit, das wenn er alle PN Nummer überprüft hat und dann keine findet, dann die Meldung kommt, das die PN NUmmer ungültig ist, man aber danach normal einen eue eingeben kann ohne das das PRogramm abstürzt. Ich habe seit heute morgen bei google die ganze Zeit gesucht, aber allerdings nicht wirklich eine Lösung gefunden.
Vielen Dank im Vorraus,
Julian
|