Dim i As Integer = 0
        Dim inew As Integer = 0
        Dim StatusATemp0 As Char
        Dim StatusNTemp0 As Char
        Dim StatusATemp As Char
        Dim StatusNTemp As Char
        CounterGleicheUhrzeit = 0 'beschreibt Treffer -1, d.h. Arrayposition
        Dim countertemp As Integer
 
        'hochzählen des Arrayumfangs
        Do While dtKorstat.Rows(Zeilekorstat + CounterGleicheUhrzeit)( _
          "Uhrzeit").ToString = dtKorstat.Rows(Zeilekorstat + _
          CounterGleicheUhrzeit + 1)("Uhrzeit").ToString And _
                dtKorstat.Rows(Zeilekorstat + CounterGleicheUhrzeit)( _
                "Sendungsnr").ToString = dtKorstat.Rows(Zeilekorstat + _
                CounterGleicheUhrzeit + 1)("Sendungsnr").ToString
 
            CounterGleicheUhrzeit += 1 'Zähler für mehrfach gefundene Uhrzeiten 
            ' hochsetzen
        Loop
 
        'Array intitialisieren und neu dimmensionieren
 
        ReDim Sendung(CounterGleicheUhrzeit)
 
        'Struture Instanzen füllen
        For i = 0 To CounterGleicheUhrzeit
            With Sendung(i)
                .Sendungsnummer = dtKorstat.Rows(Zeilekorstat + i)( _
                  "Sendungsnr").ToString
                .Datum = dtKorstat.Rows(Zeilekorstat + i)("Datum").ToString
                .Status1A = dtKorstat.Rows(Zeilekorstat + i)( _
                  "Status1A").ToString
                .Status1N = dtKorstat.Rows(Zeilekorstat + i)( _
                "Status1N").ToString
            End With
        Next
 
 
        countertemp = CounterGleicheUhrzeit
 
        For i = 0 To CounterGleicheUhrzeit 
 
            If Sendung(i).Status1A = Sendung(i).Status1N Then
 
                If i < CounterGleicheUhrzeit Then                   _
                  'arrayeinträge eine position nach vorne ziehen
                    For e = i To CounterGleicheUhrzeit - 1
                        With Sendung(e)
                            .Status1A = Sendung(e + 1).Status1A 'Fehler
                            .Status1N = Sendung(e + 1).Status1N
                        End With
                    Next
                End If
 
                countertemp -= 1
                ReDim Preserve Sendung(countertemp)                    'array 
                ' neu dimensionieren
 
                If i >= countertemp Then
                    Exit For
                End If
 
            End If
        Next
 
        CounterGleicheUhrzeit = countertemp