' Datum um einen Tag erhöhen und Tages Enddaten erfassen
            tmpDatumEnd = Format(DateAdd("d", 1, _
              rs_OriginalTabelleStart![DateTime]), "dd.mm.yyyy")
            tmpJahrEnd = Format(tmpDatumEnd, "yyyy")
            tmpMonatEnd = Format(tmpDatumEnd, "mm")
            tmpTagEnd = Format(tmpDatumEnd, "dd")
 
            rs_OriginalTabelleStart.FindFirst "[Year] = " + tmpJahrEnd + " And" & _
              "[Month] = " + tmpMonatEnd + " And [Day] = " + tmpTagEnd
            ' wenn an Tagen keine Probe gezogen wurde, dann wird der nächste 
            ' Tag gesetzt
            Do Until Not rs_OriginalTabelleStart.NoMatch
                tmpDatumEnd = Format(DateAdd("d", 1, tmpDatumEnd), "dd.mm.yyyy")
                tmpJahrEnd = Format(tmpDatumEnd, "yyyy")
                tmpMonatEnd = Format(tmpDatumEnd, "mm")
                tmpTagEnd = Format(tmpDatumEnd, "dd")
                rs_OriginalTabelleStart.MoveFirst
                rs_OriginalTabelleStart.FindFirst "[Year] = " + tmpJahrEnd + "" & _
                  "And [Month] = " + tmpMonatEnd + " And [Day] = " + tmpTagEnd
            Loop
        Loop