Dim dataTbl As New Data.DataTable
        Dim DataZeile As Data.DataRow

        dataTbl.Columns.Add("Nr", GetType(System.Int16))
        dataTbl.Columns.Add("KlassFlag", GetType(System.Boolean))
        dataTbl.Columns.Add("Messstelle", GetType(System.String))
        dataTbl.Columns.Add("KlassRange", GetType(System.Single))
        dataTbl.Columns.Add("Einheit", GetType(System.String))


        For i = 1 To RPC3Header.Kanalanzahl

            ' Erzeugen der 1. Zeile
            DataZeile = dataTbl.NewRow()
            ' Füllen der Zeile
            DataZeile("Nr") = i
            DataZeile("KlassFlag") = True
            DataZeile("Messstelle") = RPC3Header.Kanaltitel(i)
            DataZeile("KlassRange") = RPC3Header.KalibfktproDigit(i) * RPC3Header.Int_Full_Scale
            DataZeile("Einheit") = RPC3Header.Einheit(i)

            ' Anfügen der Zeile an Tabelle
            dataTbl.Rows.Add(DataZeile)