Hallo alle zusammen.

Ich habe VBA für Excel verwendet und im Code natürlich auch einige Zellbezüge verwendet. Nun ist es aber so, dass wenn ich in meinem Excel Tabellenblatt beispielsweise in Zelle Q345 (die absolut keinen Bezug zu jedweder Rechnung hat) eine 1 rein schreibe, sich das gesamte Ergebnis meiner Rechnung ändert - und nein es wird nicht nur neu berechnet und die gleichen Zahlen kommen raus. Die Ergebnisse ändern sich teils um bis zu 0,3 bei einer Mittelwertrechnung mit 2000 Werten dann doch seeeeeehr ungewöhnlich ist.

Hier mal der Code:

Function oelmw(start, ende, groben, grunten, headoben, headunten) As Double

'Start als Zeile, ende als length_pos

Do While ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 5) <= ende

    If groben >= ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6) And _
    grunten <= ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6) Then
        sum = sum + ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 4)
        zaehler = zaehler + 1
        start = start + 1
    Else: start = start + 1
    End If
Loop

Do While headoben < ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6) _
Or headunten > ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6)
 
    If groben >= ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6) And _
    grunten <= ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 6) Then
        sum = sum + ActiveWorkbook.Worksheets("MEAS_DATA_Track261_347").Cells(start, 4)
        zaehler = zaehler + 1
        start = start + 1
    Else: start = start + 1
    End If
Loop
    
    
oelmw = sum / zaehler

End Function

 Sämtliche Zellbezüge sind sogar auf einem ganz anderen Tabellenblatt (MEAS_DATA_Track....)