Addieren und Durchschnitt ermitteln
02.12.2022 18:48:04
Matthias
vor Jahren wurde hier diskutiert, wie man in der selben Zelle Werte eingeben und an anderer Stelle addieren kann. Ich bin dabei ein "Stimmungsbarometer" meiner Schüler:innen zu erstellen und das Ergebnis als Diagramm anzeigen zu lassen.
Es ist mir als VBA-Frischling leider nicht klar, wie ich den Durchschnitt aller bisher Teilnehmenden ermitteln kann (gerne z.B. in einer separaten Spalte), um ihn als Basis für die Diagrammerstellung zu verwenden. Vielleicht kann mir jemand dabei helfen? Das würde mich sehr freuen!
Folgenden (hier gefundenen) Code möchte ich gerne verwenden (der Bereich wurde geringfügig angepasst):
Sub worksheet_change(ByVal target As Range)
Dim i As Integer
If Not Intersect(target, Range("C2:C23")) Is Nothing Then
i = Cells(target.Row, 2).Value
Cells(target.Row, 2).Value = i + Cells(target.Row, 3).Value
End If
End Sub
Matthias