If dt1.Rows.Count = 0 Then
            MessageBox.Show("Du kannst nix suchen! Die Tabelle enthält keine" & _
              "Daten!" _
                            , "Sicherheitsabfrage:", MessageBoxButtons.OK, _
                            MessageBoxIcon.Warning)
            Exit Sub
        End If
 
        If cmbKistenart.Text = "" Then
            MessageBox.Show("Du musst erst die Abfrage zur Kontrollart" & _
              "beantworten!" _
                            , "Sicherheitsabfrage:", MessageBoxButtons.OK, _
                            MessageBoxIcon.Warning)
            cmbKistenart.Select()
            Exit Sub
        End If
        If txtFahrgestellnummer.Text = "" And cmbKistenart.Text.Contains( _
          "Mehrfachkiste") Then
            MessageBox.Show("Du musst noch die Fahrgestellnummer angeben!" _
                            , "Sicherheitsabfrage:", MessageBoxButtons.OK, _
                            MessageBoxIcon.Information)
            txtFahrgestellnummer.Select()
            Exit Sub
        End If
        If txtFahrgestellnummer.Text.Length <> 6 Then
            MessageBox.Show("Fahrgestellnummer prüfen!" _
                            , "Sicherheitsabfrage:", MessageBoxButtons.OK, _
                            MessageBoxIcon.Warning)
            txtFahrgestellnummer.Select()
            txtFahrgestellnummer.SelectionLength = 0
            txtFahrgestellnummer.SelectionStart = _
              txtFahrgestellnummer.TextLength
            Exit Sub
        End If
 
        Dim foundrows() As DataRow
 
        If txtSeriennummer.Text.Length = 7 Then
            foundrows = dt1.Select("Seriennummer='" & txtSeriennummer.Text & _
              "'")
 
            If foundrows.Count > 1 Then
                MessageBox.Show("Diese Seriennummer existiert mehrfach!")
                Exit Sub
            End If
 
            If cmbKistenart.Text = "Einzelkiste" Then
                foundrows(0).Item("Status") = "Einzelkiste"
            ElseIf cmbKistenart.Text.Contains("Mehrfachkiste") Then
                foundrows(0).Item("Status") = cmbKistenart.Text
                foundrows(0).Item("Fahrgestellnummer") = _
                  txtFahrgestellnummer.Text
            End If
 
            txtSeriennummer.Text = ""
            cmbKistenart.Text = ""
            txtFahrgestellnummer.Text = ""
 
        End If