' Versandkosten ermitteln Spalte 6 #########
 
                    '1.Schritt:
                    Dim val As String = row("SP_6").ToString
 
                    '1a.) 
                    val = val.Replace("."c, ",")
 
                    '2.Schritt:
                    Dim dec As Decimal
 
                    '3.Schritt:
                    If Decimal.TryParse(val, dec) Then
                        '4. Schritt:
                        If dec <= 70 Then
                            orow("Versandkosten") = "5,9"
                        Else
                            orow("Versandkosten") = "0"
                        End If
                    Else
                        orow("Versandkosten") = "" 'Leerstring oder 
                        ' Missing-Kennung zuweisen
                    End If
 
                    ' Preis ermitteln #########
 
                    '1.Schritt:
                    Dim val2 As String = row("SP_6").ToString
                    '1a.) 
                    val2 = val2.Replace("."c, ",")
                    '2.Schritt:
                    Dim dec1 As Decimal
                    '3.Schritt:
                    If Decimal.TryParse(val2, dec1) Then
                        '4. Schritt:
                        If dec1 = 000 Then
                            orow("Preis") = row("SP_5") 
                        End If
                    Else
                        orow("Preis") = "" 'Leerstring oder Missing-Kennung 
                        ' zuweisen
                    End If
 
                    ' Stückzahl festlegen #########
                    '1.Schritt:
                    Dim val4 As String = row("SP_4").ToString
                    '1a.) 
                    val4 = val4.Replace("."c, ",")
                    '2.Schritt:
                    Dim dec4 As Decimal
                    '3.Schritt:
                    If Decimal.TryParse(val4, dec4) Then
                        '4. Schritt: 
                        If dec4 >= 20 Then
                            orow("Stückzahl") = "10" 
                        End If
                    Else
                        orow("Stückzahl") = "" 'Leerstring oder Missing-Kennung 
                        ' zuweisen
                    End If
 
                    ' EAN festlegen #########
                    '1.Schritt:
                    Dim val5 As String = row("SP_7").ToString
                    '1a.) 
                    val5 = val5.Replace("."c, ",")
                    '2.Schritt:
                    Dim dec5 As Decimal
                    '3.Schritt:
                    If Decimal.TryParse(val5, dec5) Then
                        '4. Schritt: 
                        If dec5 = Nothing Then
                            orow("EAN") = row("SP_7") 
 
                        End If
                    Else
                        orow("EAN") = "Nicht zutreffend" 'Leerstring oder 
                        ' Missing-Kennung zuweisen
                    End If
 
                    ' Tabelle Füllen #########
 
                    dtout.Rows.Add(orow)
 
                    'Ausgabe-Datensatz als Text aufbereiten
                    line.Clear()
                        For i As Integer = 0 To orow.ItemArray.Length - 1
                            line.Append(orow(i).ToString & ";")
                        Next i
 
                    Next rowindex
                Catch ex As Exception
                    MessageBox.Show("Abbruch - Fehler: " & ex.Message)
                    Exit Sub
                End Try
 
                'Ausgabe als Text anzeigen
                DataGridView1.DataSource = dtout
                DataGridView1.CurrentCell = Nothing
                DataGridView1.Rows(0).Visible = False
       End If
    End Sub