Sub MehrfachEinträgeEintragen(ByVal Zeilekorstat As Long)
 
 Dim i As Integer = 0
 CounterGleicheUhrzeit = 0 
 
 
 '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
 
 
 
        For i = 0 To CounterGleicheUhrzeit 
 
            If Sendung(i).Status1A = Sendung(i).Status1N Then
                HistWriter.WriteLine("Doppelter Eintrag wird entfernt")
                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               _
                            .Status1N = Sendung(e + 1).Status1N
                        End With ' hier tritt der Fehler auf
                    Next
                End If
 
                countertemp -= 1
                ReDim Preserve Sendung(countertemp)                    'array 
                ' neu dimensionieren
 
                If i >= countertemp Then
                    Exit For
                End If
 
            End If
        Next