Bauforum-Logo

Forum Bauen und Umwelt

log in | registrieren

zurück zum Forum
  Mix-Ansicht

Und noch ne Lösung (Allgemeines)

verfasst von Boris, 26.06.2010, 20:07 Uhr

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

antworten
 



gesamter Thread:

zurück zum Forum
  Mix-Ansicht
Forum Bauen und Umwelt | Kontakt | Impressum
8442 Postings in 4047 Threads, 1094 registrierte User, 37 User online (1 reg., 36 Gäste)
powered by my little forum  RSS-Feed  ^
map | new