Sub Aufgabe()
Dim Differenz As Long
Dim Jahreszahl As Long
Dim Min As Long
Dim Max As Long
Const Vorgabe As Long = 2018
Dim Anzahl As Long
Dim Sum As Long
Dim Variable As Variant
Dim Minvariable As Variant
Dim Maxvariable As Variant
Dim x As Long
Min = WorksheetFunction.Max(Columns(1))
Max = WorksheetFunction.Min(Columns(1))
x = 2
Do While Cells(x, 1).Value <> ""
Differenz = Abs(Vorgabe - Cells(x, 1))
If Differenz < Min Then
Min = Differenz
Minvariable = Cells(x, 2).Value
End If
If Differenz > Max Then
Max = Differenz
Maxvariable = Cells(x, 2).Value
End If
Sum = Sum + Differenz
Cells(x, 5).Value = Differenz
x = x + 1
Loop
Call MsgBox("Minimum " & Format(Min, "0") & vbLf & _
"Maximum " & Format(Max, "0") & vbLf & _
"Durchschnitt " & Format(Sum / (x - 2), "0.00") & vbLf _
& "Zeilen " & Format(x - 2, "0"), _
vbInformation + vbOKOnly, "Ergebnisse")
End Sub