Gruppenverweis



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Gruppenverweis
von: Eric
Geschrieben am: 22.05.2002 - 14:22:56

Liebe Leser!

Es geht um folgendes Problem:
z.B. in Zelle B1 soll der Mittelwert aus A1:A3 stehen, in B2 der Mittelwert aus A4:A6 usw.
Mit Copy+Paste funktioniert dies nicht, da dann in B2 der Verweis auf A2:A4 steht.

Vielen Dank für jede Hilfe

nach oben   nach unten

Re: Gruppenverweis
von: Klaus-Dieter
Geschrieben am: 22.05.2002 - 22:53:47

Hallo Eric,

mit diesem Makro geht es:


Sub mittelwerte()
z = 1
zz = 0
z2 = 1
Do While Cells(z, 1) <> ""
    zz = zz + 1
    Sum = Sum + Cells(z, 1)
        If zz = 3 Then
            zz = 0
            Sum = Sum / 3
            Cells(z2, 2) = Sum
            z2 = z2 + 1
            Sum = 0
        End If
z = z + 1
Loop
End Sub

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Diagrammdatenquelle erweitern"