'1.Schritt: den Wert in der Zelle als String lesen
 
                    Dim val1 As String = row("SP_0").ToString
                    Dim val2 As String = row("SP_2").ToString
 
                    '1a.) 
                    val1 = val1.Replace("."c, ",")
                    val2 = val2.Replace("."c, ",")
 
                    '2.Schritt: eine Dezimalzahl-Variable erstellen
                    Dim dec1 As Decimal
                    Dim dec2 As Decimal
 
                    '3.Schritt: Versuch, den String in die Dezimalvariable als 
                    ' Zahl einzutragen
                    If Decimal.TryParse(val1, dec1) Then
 
                        '4. Schritt: Bedingung prüfen in SP_0 nach dem Wert 
                        ' suchen.
                        If dec1 = "test" Then
 
                            '5.Schritt In SP_2 alle nummer zwischen 2200  und 
                            ' 2300 bekommen in Kato einen neuen Wert
 
                            If Decimal.TryParse(val2, dec2) Then
                                If dec2 >= 2200 And dec2 <= 2300 Then
                                    orow("Kato") = "teeeeest2016" 'Zuweisung 
                                    ' des gew. Wertes als String
                                End If
                            Else
                                orow("Kato") = "" 'Leerstring oder 
                                ' Missing-Kennung zuweisen
                            End If
                        End If
                    Else
                        orow("Kato") = "" 'Leerstring oder Missing-Kennung 
                        ' zuweisen
                    End If