Hallo zusammen,

ich habe nächste Woche eine Prüfung in VBA und bin hinsichtlich Programmieren nicht so der Held. Naja, hier ist ein sehr klausurrelevante Aufgabe, die ich aber nicht gelöst bekomme. Es sollen sich 10 Fehler in den folgenden Programmiertext befinden. Vielleicht könnt ihr mir helfen und diesen mal korrigieren. Vielen, vielen Dank! Lg Micki!

Sub Min_Max_und_Durchschnitt_ermitteln()

Dim Bereich As String
Const durchschnitt As Single
Static Anzahl As Integer

With Selection
Anzahl = Cells.Count
.Font.ColorIndex = 1
.Font.Bold = False
Endwith

For Each Bereich
If Bereich = Application.WorksheetFunction.Min(Selection) Then
Bereich.Font.ColorIndex = 3
Else If Bereich = Application.WorksheetFunction.Max(Selection) Then
Bereich.Font.ColorIndex <> 10
End If
Durchschnitt := Durchschnitt + Range.Value
Next Bereich
Durchschnitt = Application.WorksheetFunction.Round(Durchschnitt/Anzahl,2)
MsgBox "Der Durchschnittswert der " + Anzahl & " markierten _
Zahlen beträgt: " & _
Durchschnitt, vbOKOnly, "Auswertung"

End Sub

Wenn Du den Code mal im VBA-Editor eingibst, zeigt er Dir die meisten der Fehler direkt an. Mindestens 5 Syntax-Fehler habe ich auf Anhieb gefunden (ohne VBA-Editor)