Option Explicit
 
Dim h(5) As Double
Dim hNeu(5) As Double
Dim hRounded(5) As Double
Dim hAbw(5) As Double
Dim hAbwGes As Double
Dim hGes As Double
Dim hRoundedGes As Double
Dim hZiel As Double
 
Private Sub Command1_Click()
    Dim i  As Long
 
    For i = 1 To 5
        hGes = hGes + h(i)
    Next i
    Debug.Print "Stunden genau: "; CStr(hGes);
    hZiel = Int(2 * (hGes + 0.25)) / 2
    Debug.Print ", Zielgröße: "; CStr(hZiel)
 
    Call calc
 
    For i = 1 To 5
        If hRoundedGes = hZiel Then
            hNeu(i) = hRounded(i)
        Else
            If hAbw(i) <> 0 Then
                If hAbwGes > 0 Then
                    If hAbw(i) > 0 Then
                        hNeu(i) = h(i) + 0.5 - hAbw(i)
                    Else
                        hNeu(i) = h(i) - hAbw(i)
                    End If
                Else
                    If hAbw(i) < 0 Then
                        hNeu(i) = h(i) - hAbw(i)
                    Else
                        hNeu(i) = h(i) - 0.5 - hAbw(i)
                    End If
                End If
            End If
            Call calc
        End If
    Next i
 
    hRoundedGes = 0
    Debug.Print "Ergebnis: "
    Debug.Print "Original", "Neu"
    Debug.Print "--------------------------------------------------"
    For i = 1 To 5
        Debug.Print CStr(h(i)), CStr(hNeu(i))
        hRoundedGes = hRoundedGes + hNeu(i)
    Next i
    Debug.Print "--------------------------------------------------"
    Debug.Print CStr(hGes), CStr(hRoundedGes)
End Sub
 
Private Sub Form_Load()
    h(1) = 8.1
    hNeu(1) = h(1)
    h(2) = 7.7
    hNeu(2) = h(2)
    h(3) = 4.4
    hNeu(3) = h(3)
    h(4) = 8.8
    hNeu(4) = h(4)
    h(5) = 7.7
    hNeu(5) = h(5)
End Sub
 
Public Sub calc()
    Dim i  As Long
 
    hAbwGes = 0
    hRoundedGes = 0
    For i = 1 To 5
        hRounded(i) = Int(2 * (hNeu(i) + 0.25)) / 2
        hRoundedGes = hRoundedGes + hRounded(i)
        hAbw(i) = hNeu(i) - hRounded(i)
        hAbwGes = hAbwGes + hAbw(i)
        Debug.Print CStr(i); ": hRounded: ", CStr(hRounded(i)), "hAbw: ", CStr( _
          hAbw(i))
    Next i
    Debug.Print "akt. Gesamtrundung: "; CStr(hRoundedGes); ", akt." & _
      "Gesamtabweichung: "; CStr(hAbwGes)
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1