Dim Winkel As Double, Diff As Double, S As Double
  Dim i As Long, Wnk As Variant
 
  'Wnk = Array(359, 358, 360, 2, 1)
  Wnk = Array(201, 202, 199, 198, 200)
 
  S = 0
  For i = 1 To UBound(Wnk)
    Diff = (Wnk(0) - Wnk(i) + 3600) Mod 360
    If Diff > 180 Then
      S = S + 360 - Diff
    Else
      S = S - Diff
    End If
  Next i
 
  S = Wnk(0) + S / (UBound(Wnk) + 1)
  Winkel = S - 360 * (S \ 360)
  MsgBox "Mittelwert: " & Format$(Winkel, "0.0"), vbInformation + vbOKOnly

Gruss,

Zardoz