habe aus diesem Forum indirekt über einen Freund nachstehende Prozedur erhalten:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(2, 1) = Cells(2, 1) + Cells(1, 1)
Cells(1, 1) = 0
Cells(2, 2) = Cells(2, 2) + Cells(1, 2)
Cells(1, 2) = 0
Cells(17, 3) = Cells(17, 3) + Cells(17, 2)
Cells(17, 2) = 0
Cells(17, 1) = 1
Cells(17, 4) = Cells(17, 3) / Cells(17, 1)
Cells(17, 1) = Cells(17, 1) + 1
End Sub
Diese Prozedur (?) soll Zellen umfunktionieren damit diese folgendes machen:
1) Zahlenwerte sollen in eine Spalte kopiert werden
(macht anderes Makro)
2) Werte in 2. Spalte kopieren und Addieren
(So soll dieser Wert immrt wachsen)
3) Eingangsspalte wieder auf "0" setzen
4) Mittelwertbildung in weiterer Zelle(Spalte)
-->4) Funktioniert aber nicht, da keiné Zählschleife funktioniert!
Bei versuchen eine n+1 Schleife so umzusetzen, hat das WS jede Zellenbewegung mit gezählt..
FRAGE: Wie kann ich den Mittelwert berechnen für eine Rheie von 8 Werten, die via externes Macro auf eine definierte Spalte (Bereich) geht?
Peter