Private Sub Suche_CodelinksUndMarkiere(ByVal DGV As DataGridView, ByVal _
    CodeLinks As String)
        Dim Seriennummer As String = String.Empty
        Dim Fahrgestellnummer As String = tbx_Fahrgestellnummer.Text
        Dim ZsbNummer As String = String.Empty
        Dim Links As String = tbx_Eingabe1_BC.Text
        Dim Rechts As String = String.Empty
 
        Dim aktZellenInhalt As String = String.Empty
 
        Dim anzahl_gefunden As Integer = 0
 
        With DGV
            'alle Zeilen des DataGridView1 durchlaufen
            For i = 0 To DGV.Rows.Count - 1
                Dim Gefunden As Boolean = False
 
                'da wir den Frachttyp nur in Spalte 0 (DataGridView1 
                ' Spaltenname "Frachttyp") suchen:
 
                'Inhalt von Spalte 0 in Reihe i
                aktZellenInhalt = .Rows(i).Cells(0).Value.ToString
 
                'prüfen, ob Inhalt die Zeichenkette "Codelinks" enthält (egal 
                ' ob am Anfang, in der Mitte oder am Ende)
                If aktZellenInhalt.ToLower.Contains(CodeLinks.ToLower) Then
                    'Inhalt Spalte 0 rausfischen (Sperrliste)
                    Seriennummer = .Rows(i).Cells(0).Value.ToString
                    'Inhalt Spalte 3 rausfischen (ZsbNummer)
                    ZsbNummer = .Rows(i).Cells(1).Value.ToString
 
                    'beide Spalteninhalte dem DataGridView2 hinzufügen
                    Dim Auswahl As String() = {Fahrgestellnummer, ZsbNummer, _
                      Links, Rechts}
                    Me.DataGridView2.Rows.Add(Auswahl)
 
                End If
            Next i
        End With
 
        'gefundene Einträge als Zahl ausgeben
        tbx_Bauteil_Anz_NIO.Text = Me.DataGridView2.Rows.Count.ToString
    End Sub