Suche_CodelinksUndMarkiere(DataGridView1, CodeLinks)

 'Code links suchen und in DGV2 bei Fund schreiben
    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 Code nur in Spalte 0 (DataGridView1 Spaltenname 
                ' "Seriennummer") 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
                    DataGridView1.Rows(i).Selected = True
                    DataGridView1.FirstDisplayedScrollingRowIndex = i
 
                    '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

Suche_CodeRechtsUndMarkiere(DataGridView1, CodeRechts)

 'Code rechts suchen und in DGV2 bei Fund schreiben
    Private Sub Suche_CodeRechtsUndMarkiere(ByVal DGV As DataGridView, ByVal _
      CodeRechts 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 = String.Empty
        Dim Rechts As String = tbx_Eingabe2_BC.Text
        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 Code nur in Spalte 0 (DataGridView1 Spaltenname 
                ' "Seriennummer") suchen:
                'Inhalt von Spalte 0 in Reihe i
                aktZellenInhalt = .Rows(i).Cells(0).Value.ToString
                'prüfen, ob Inhalt die Zeichenkette "CodeRechts" enthält (egal 
                ' ob am Anfang, in der Mitte oder am Ende)
                If aktZellenInhalt.ToLower.Contains(CodeRechts.ToLower) Then
                    DataGridView1.Rows(i).Selected = True
                    DataGridView1.FirstDisplayedScrollingRowIndex = i
 
                    '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