Und noch ne Lösung (Allgemeines)

Boris, Samstag, 26.06.2010, 20:07 (vor 3037 Tagen) @ KnutLar

Noch ein Lösungsweg, diesmal mit Makro:

Sub mwerte()
'j=Zeilenindex der Zeile, in der die Mittelwerte
'berechnet werden sollen, bei Zelle C1 ist j=1
j = 1
letzte_zeile = 500
For i = 1 To letzte_zeile Step 7
'diese If-Funktion verhindert, dass über die letzte Zeile hinaus
'Zellen für die Mittelwerte herangezogen werden
If i < letzte_zeile - 7 Then
'schreibt einfach nur die Funktion mit den richtigen
'Zeilennummern in die jeweilige Zelle
Cells(j, 3) = "=average(A" & i & ":A" & i + 6 & ")"
Else
Cells(j, 3) = "=average(A" & i & ":A" & letzte_zeile & ")"
End If
'diese Zelle ist fertig, nun wird die nächste angesprochen
j = j + 1
Next
End Sub



gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum