Office: Mittelwert aus unterschiedlicher Zeilenanzahl berechnen

Hallo,

da mir ja gestern schon so wunderbar geholfen wurde, probiere ich es jetzt gleich nochmal *wink.gif*

aaalso, mit folgendem Quelltext kopiere ich Zeilen aus einem Blatt in ein anderes:

Sub auswertung_kopieren()

Dim r As Long
Application.ScreenUpdating = False
For r = 2 To Worksheets("Fragenkatalog").Cells(Rows.Count, 1).End(xlUp).Row 'pruefen nur bis letzten Eintrag in SpalteA
With Worksheets("Fragenkatalog")
If UCase(.Cells(r, 1).Value) = "X" Then
.Range(.Cells(r, 2), .Cells(r, 8)).Copy Worksheets("Auswertung").Cells(Worksheets("Auswertung").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End If
End With
Next
Application.ScreenUpdating = True

End Sub




Das funktioniert - dank Hary und Uwe - auch schon ganz toll.


Jetzt habe ich das Problem, das ich aus den Werten, die in der Spalte E stehen, den Mittelwert berechnen will.

Das ist im Moment einer meiner hilflosen Versuche:

Sub mittelwert_berechnen()
Dim x As Integer 'Wert zum aufsummieren
Dim mittelwert_zelle As Integer
Dim z As Integer 'Zähler

mittelwert_zelle = Sheets("Auswertung").Cells(Rows.Count, 5).End(xlUp).Row
mittelwert_zelle = mittelwert_zelle + 1

x = Sheets("Auswertung").Cells(r, 5).Value
z = 1

For r = 2 To gestellte_fragen
x = x + Cells(r, 5).Value
z = z + 1
Next r


mittelwert = x / z


End Sub



a) funktioniert es überhaupt nicht
und b) macht die andere Prozedur ganz komische Sachen, sobald diese beiden prozeduren in einem Modul stehen...


Kann mir da vll jemand helfen?


Vielen Dank und Gruß
das_krümelchen

:)

 

Hallo
das gibts schon fertig ;-)
Code:

gruss hary

 

Ich bin platt... ihr seit klasse!!!

Vielen Dank!!!


einziges Problem jetzt noch: ich will das Ergebnis nicht in einer Messagebox, sondern in einer Zelle unterhalb der letzten beschriebenen Zeile...

 

Hi
Code:

gruss hary

 

Danke danke danke danke *Smilie

 

hi
Bitte.
ersetz mal unter next, durch dass, sieht schoener aus.Und die Codezeile ist nicht so lang
Code:

gruss hary

 

du glaubst gar nicht wie sehr du mir grad hilfst... danke *wink.gif*


wie krieg ich den wert jetzt noch auf eine nachkommastelle gerundet?

 

Hi
Code:

gruss hary
edit: Pause,gibt Happa Happa ;-)

 

Super, vielen Dank *Smilie den Rest müsste ich jetzt eigentlich alleine hinkriegen *Smilie


Guten Appetit *wink.gif*

 

ok, anscheinend verstehe ich deinen code doch noch nicht so ganz wie ich dachte...

wie kann ich jetzt möglichst einfach den berechneten Wert in die Zelle B10 des dritten Tabellenblattes "Gesamtauswertung" kopieren?

 

Hi
war unterwegs.Falls Du beides haben willst setz nur die zeile Worksheet(Gesamt..) dazwischen
Code:

gruss hary

 

Danke!!!!!!!!!

das wars jetzt aber auch wirklich *wink.gif*