Private Function CreateNumberColumn(ByVal dt As cDataTableCSV, ByVal _
     ColumnEndswithNumber As String) As String
 
        Dim ColumnWithNumber As String = ""
 
 
        If Not dt.Columns.Contains(ColumnEndswithNumber) Then
            Throw New ArgumentException("Die Spalte " & ColumnEndswithNumber & _
              " ist nicht in der Tabelle vorhanden")
        End If
 
        dt.AddColumn()
        dt.AddColumn()
        dt.AddColumn() 'Spalte in Tabelle anfügen
        'Name der neuen Spalte abfragen
        ColumnWithNumber = dt.Columns(dt.Columns.Count - 1).ColumnName
 
        'Hilfsvariable
        Dim field As String, parts() As String, numberpart As String
        Dim number As Integer
 
        For Each row As DataRow In dt.Rows
 
            field = row(ColumnEndswithNumber).ToString() 'Feldinhalt abfragen
            parts = field.Split(" "c) 'Feldinhalt am Trennzeichen aufspalten 
 
            'Annahme: Artikelnummer steht im letzten Abschnitt
            numberpart = parts(parts.Length - 1) 'Letzter Abschnitt (=Nummer)
 
            'Prüfen, ob der letzte Teilstring als Integer darstellbar ist
            If Integer.TryParse(numberpart, number) Then
                'Annahme: Markenname steht im ersten Abschnitt
                'Markenname_ArtikelNummer in der neuen Spalte eintragen
                row(ColumnWithNumber) = parts(0) & " " & number.ToString
                row(ColumnWithNumber) = "hallo"  'Wird bei der ausgabe 
                ' angezeigt in SP_3.
                row(ColumnWithNumber) = parts(1) 'Wird bei der ausgabe nicht 
                ' angezeigt in SP_3.
            Else
                'keine Ziffernfolge im letzten Teilstring !!!
                row(ColumnWithNumber) = DBNull.Value
            End If
        Next row
 
        'Name der neuen Spalte zurückgeben
        Return ColumnWithNumber
 
        dt.AddColumn() 'Spalte in Tabelle anfügen
        'Name der neuen Spalte abfragen
        ColumnWithNumber = dt.Columns(dt.Columns.Count - 1).ColumnName
 
    End Function