'Anzahl der gefundenen Zeilen 
        Dim row_found As Integer = _
               Aggregate row As DataRow In LagerDB.Lagerliste.AsEnumerable _
                  Where row(search_columnindex).ToString.StartsWith( _
                  MAXIMOTextBox.Text) _
               Into Count()
 
        If row_found > 0 AndAlso Not searchlist.Contains(MAXIMOTextBox.Text) Then
            searchlist.Add(MAXIMOTextBox.Text)
            'LagerlisteDataGridView.InvalidateColumn(search_columnindex)
            Dim Form_Rueckgabewert As Boolean
 
            Using Dialog_Form As New frm_Dialog()
                With Dialog_Form
                    .ShowInTaskbar = True
 
                    'Titel an frm_Dialog übergeben
                    .lbl_Titel.Text = "MAXIMO ist bereits vergeben!"
 
                    'Meldung an frm_Dialog übergeben
                    Dim sbMeldung As New System.Text.StringBuilder
                    sbMeldung.AppendFormat("{0} {1}", "Die Maximo-Nummer ", _
                      MAXIMOTextBox.Text)
                    sbMeldung.AppendLine()
                    sbMeldung.AppendFormat("{0} {1} {2}", "ist bereits", _
                      row_found, " mal vergeben.")
                    sbMeldung.AppendLine()
                    sbMeldung.AppendLine()
                    sbMeldung.Append("Soll die Maximo-Nr trotzdem hinzugefügt" & _
                      "werden?")
                    .lbl_Meldung.Text = sbMeldung.ToString
 
                    'Alle Wohnorte an frm_Dialog übergeben
                    .ListBox_Daten.Items.AddRange(searchlist.ToArray)
 
                    'frm_Dialog anzeigen
                    .ShowDialog(Me)
                End With
 
                'Abfragen, ob Ja oder Nein geklickt wurde
                Form_Rueckgabewert = Dialog_Form.return_wert
                If Form_Rueckgabewert = True Then
 
                End If
            End Using
 
        Else
        End If