Makro: MITTELWERT: Bereich per Variable
05.10.2006 17:48:38
Anton
ich habe eine Aufstellung von Leuten,
die oben zu einer Gruppe zusammengefasst sind.
Alle Gruppen sind untereinander angeordnet.
Ich möchte den Mittelwert jeder Gruppe berechnen lassen.
Eine Gruppe mit dem Makrorecorder aufgezeichnet sieht so aus:
Range("H4").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[1]C:R[7]C)"
Selection.Font.Bold = True
Die Position für diese Formel funzt schon prima.
Nur von dort den Bereich zu bestimmen klappt noch nicht.
Hier der Code wie er zur Zeit aussieht:
Sub Makro1()
Dim Gruppensumme As Long
Gruppensumme = 0
LrowRunterkopieren = Cells(Rows.Count, 3).End(xlUp).Row + 1
For Runterkopieren = LrowRunterkopieren To 4 Step -1
'#NV löschen
If VarType(Cells(Runterkopieren, 7)) = vbError Then '#NV ist ein Fehlerausdruck,
Cells(Runterkopieren, 7).Value = 0 'deshalb muss auch nach einem Fehler
End If 'gesucht werden
'Gruppen auszählen
If Cells(Runterkopieren, 3) = "" Then
Cells(Runterkopieren, 7).Activate
ActiveCell.Font.Bold = True
ActiveCell.FormulaR1C1 = Gruppensumme
'Durchschnitt berechnen
If Gruppensumme > 0 Then
Cells(Runterkopieren, 8).Activate
ActiveCell.FormulaR1C1 = "=AVERAGE(R[1]C:R[Gruppensumme]C)"
End If
Gruppensumme = 0
Else
If Cells(Runterkopieren, 6) > 0 Then
Gruppensumme = Gruppensumme + 1
End If
End If
Next Runterkopieren
End Sub
Bitte wer kann mir helfen meine Variable "Gruppensumme" als Bereich für meinen Durchnitt zu verwenden.
Danke und servus sagt
Anton