Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Mittelwert berechnen mit Makro - schon wieder





Frage

hallo. ich habs leider noch immer nicht geschafft. kann mir bitte wer helfen? Dieses Makro hab ich letzten Mittwoch bekommen ich hab versucht es umzuändern, aber ich bin kläglich gescheitert. was ich noch zusätzlich brauch: -) sobald es die unterste belegte zelle einer spalte gefunden hat, soll das makro den mittelwert dieser zeile und der zwei zellen darüber berechnen -) das makro sollte das automatisiert für alle spalten machen und das ergebnis jeweils in die dritte zeile schreiben -) das makro soll in die vierte zeile auch die standardabweichung dieser drei werte (unterster wert und die 2 werte drüber) berechnen Option Explicit Sub Mittelwert() Dim i As Integer For i = 0 To 450 Range("f65536").End(xlUp).Offset(-i, 0).Rows.Select If Selection <> 0 Then Range("f3").Formula = "=AVERAGE(`???????)" Exit Sub End If Next End Sub

Antwort von