Private Sub Zeitcopy()   ' Prozedur ohne Rückgabewert.....
        If DateTimePicker2.Value < DateTimePicker1.Value Then
            DateTimePicker2.Value = DateTimePicker1.Value
        End If

        If DateTimePicker3.Value < DateTimePicker2.Value Then
            DateTimePicker3.Value = DateTimePicker2.Value
        End If

        If DateTimePicker4.Value < DateTimePicker3.Value Then
            DateTimePicker4.Value = DateTimePicker3.Value
        End If

        If DateTimePicker5.Value < DateTimePicker4.Value Then
            DateTimePicker5.Value = DateTimePicker4.Value
        End If

        If DateTimePicker6.Value < DateTimePicker5.Value Then
            DateTimePicker6.Value = DateTimePicker5.Value
        End If

        If DateTimePicker7.Value < DateTimePicker6.Value Then
            DateTimePicker7.Value = DateTimePicker6.Value
        End If

        If DateTimePicker8.Value < DateTimePicker7.Value Then
            DateTimePicker8.Value = DateTimePicker7.Value
        End If

    End Sub