Private Sub VergleichenLOC_PIA(ByVal sArray1() As String, ByVal sArray2() As _
   String)
 
        Dim iLsgStart As Integer = sArray1(0)
        Dim iLsgEnde As Integer = 0
        Dim iAnzahlLsg As Integer = 0
        'prüfen ob die gleiche Menge an LOC und PIAs vorhanden sind 
        If UBound(sArray1) = UBound(sArray2) Then
 
            Dim iArray As Integer
 
            For iArray = LBound(sArray1) To UBound(sArray1) - 2
 
                Dim sMiniArrLOC1() As String = func_LOC21a(arKoeper(CInt( _
                  sArray1(iArray).ToString)))
                Dim sMiniArrLOC2() As String = func_LOC21a(arKoeper(CInt( _
                sArray1(iArray + 1).ToString)))
 
                Dim sMiniArrPIA1() As String = func_PIA21a(arKoeper(CInt( _
                  sArray2(iArray).ToString)))
                Dim sMiniArrPIA2() As String = func_PIA21a(arKoeper(CInt( _
                sArray2(iArray + 1).ToString)))
 
 
                Dim LOC1 As String = sMiniArrLOC1(1)
                Dim LOC2 As String = sMiniArrLOC2(1)
                Dim PIA1 As String = sMiniArrPIA1(0)
                Dim PIA2 As String = sMiniArrPIA1(0)
 
                If LOC1 <> LOC2 Or PIA1 <> PIA2 Then
 
                    'hier wird der erste Lastgang verarbeitet und weitere 
 
                    'wir haben einen unterschied zwischen entweder LOC1 und LOC2
                    ' oder PIA1 und PIA2 gefunden, dass ist / muss ein lastgang 
                    ' sein. 
 
                    iLsgEnde = (CInt(sArray1(iArray).ToString))
                    Dim sLastgangarr() As String = func_QTYVerarbeitung( _
                      iLsgStart, iLsgEnde)
                    iAnzahlLsg += 1
                    Dim summe As Double = func_Summe(sLastgangarr)
                    Dim peak As Double = func_Peak(sLastgangarr)
 
 
                    'hier müsste dann das Sub kommen für die anzeige in der 
                    ' Userform 
                    AuswertungToScreen(LOC1, PIA1, peak, summe, sLastgangarr)
                End If
 
                If UBound(sArray2) - 2 = iArray Then
 
                    'hier wird der letzte lastgang verarbeitet 
                    iLsgEnde = (CInt(sArray1(iArray).ToString))
                    Dim sLastgangarr() As String = func_QTYVerarbeitung( _
                      iLsgStart, iLsgEnde)
                    iAnzahlLsg += 1
                    Dim summe As Double = func_Summe(sLastgangarr)'summe 
                    ' berechnen
                    Dim peak As Double = func_Peak(sLastgangarr) 'Maximum 
                    ' bestimmen 
 
 
                    'hier müsste dann das Sub kommen für die anzeige in der 
                    ' Userform 
                    AuswertungToScreen(LOC1, PIA1, peak, summe, sLastgangarr)
                End If
 
            Next
        End If
    End Sub