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....)
|