Private Function func_QTYVerarbeitung(ByVal LSGStart As Integer, ByVal _
        LSGEnde As Integer)
 
        'hier werden die lastgänge erstellt und zusammen gefasst 
        Dim QTYArray(0) As String
        Dim dDtmDate As Date
        Dim sDTMHochzaehler As Integer = 0
        Dim iArray As Integer
        Dim arLastgangQTY(0) As String
 
        For iArray = LSGStart To LSGEnde - 1
 
            Dim unit As String = Mid(arKoeper(iArray).ToString, 1, 3)
 
            If unit = "DTM" Then
                Dim sMiniArr() As String = func_DTM21a(arKoeper( _
                  iArray).ToString)
 
                If sMiniArr(0) = "Start-Bearbeitungzeit" Then
                    dDtmDate = CDate(sMiniArr(1).ToString)
                End If
 
                If sMiniArr(0) = "Periodenzeit" Then
                    sDTMHochzaehler = CInt(sMiniArr(1).ToString)
                End If
            End If
 
 
            If unit = "QTY" Then
                Dim sMiniArr() As String = func_QTY21a(arKoeper( _
                  iArray).ToString)
                ReDim Preserve arLastgangQTY(UBound(arLastgangQTY) + 1)
 
                Dim Wertpaar As String = sMiniArr(0).ToString + ";" + sMiniArr( _
                  2).ToString + ";" + sMiniArr(1).ToString
                Dim WertpaarMitDatum = Format(dDtmDate, "dd.MM.yyyy HH:mm") + _
                ";" + Wertpaar
                arLastgangQTY(UBound(arLastgangQTY) - 1) = WertpaarMitDatum
                dDtmDate = DateAdd(DateInterval.Minute, sDTMHochzaehler, _
                  dDtmDate)
            End If
        Next
 
        'wenn wir hier sind, wurde alles durchlaufen und wir können die daten 
        ' in die Pipeline schicken 
 
 
 
        Return arLastgangQTY
    End Function