das hier ist mein erster Eintrag im Forum. Ich bin gespannt auf eure Antworten.
Wenn ich in Einzelschritten Debugge wird h immer um eins hochgezählt, aber der Mittelwert wird nicht neu berechnet.
Sub Mittelwert_berechnen()
'x = Cells(15, i).Value
Dim Zeile As Integer
Dim h As Integer 'Zählvariable für Anzahl der Hauptpunkte
Dim addierter_Fortschritt As Integer
Dim Fortschritt As Integer
Dim Mittelwert As Integer
addierer_Fortschritt = 0 'Variablendeklaration
h = 0 'Anzahl der Hauptpunkte
Mittelwert = 0
Fortschritt = 0
For Zeile = 15 To 30 Step 1
If Range("B" & Zeile) = "H" Then 'Zeile der aktiven Zelle mit ActiveCell.Row _
anzeigen
Range("K" & Zeile).Value = Fortschritt 'Wert aus Zelle auslesen
addierter_Fortschritt = addierter_Fortschritt + Fortschritt
h = h + 1
Mittelwert = addierter_Fortschritt / h 'Mittelwert berechnen
End If
'Exit wenn Leerzeile
'Exit For 'Mit Exit for kann die Zählschleife bei einem speziellen Grund _
_
_
sofort verlassen erden
'Evtl. hilfreich für Schleifenende bei nächstem P
'ActiveCell.Row() = ""
Next
Range("S15").Value = h
Range("T15").Value = Mittelwert
End Sub
Ich hoffe es ist ein einfacher Anfängerfehler....
Vielen Dank im voraus für eure Hilfe.
Gruß
Chris