|
Hallo Marco
Mit dem Folgenden Code konnte ich den Mittelwert ermitteln, aber irgendwie klappt das nicht mehr  .
Beschäftige mich noch nicht so lange mit VBA und bin eher Vortgeschrittener Anfänger
Gruß
--------------------------------------------------------------------------------------------------------------------------------------------------
Sub BereichMittelwert()
Dim rngBereich As Range
Dim VarDat As Variant
Dim lngZeile As Long
Dim lngZeileMax As Long
With Tabelle3
lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rngBereich = .Range("A1:E" & lngZeileMax)
VarDat = rngBereich
For lngZeile = 1 To UBound(VarDat)
VarDat(lngZeile, 5) = _
Application.WorksheetFunction.Average(VarDat(lngZeile, 1), _
VarDat(lngZeile, 2), _
VarDat(lngZeile, 3), _
VarDat(lngZeile, 4))
Next lngZeile
rngBereich.Value = VarDat
End With
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------
|