Summenbildung birgt Rätsel
31.07.2018 19:28:27
Siegfried
ich habe in einer Matrix Zahlen stehen, die ich addieren will.
Dazu habe ich diesen Code:
For n1 = 1 To Anz
Summe = 0
For n2 = 1 To Anz
Summe = Summe + Cells(1, 1).Offset(n1, Raster + n2)
Next n2
Cells(1, 1).Offset(n1, Raster + 1 + Anz) = Summe
Debug.Print n1, Summe
Next n1
Diesen Code lasse ich in zwei Blättern laufen.
Im ersten Blatt stimmen beide Ausgaben.
Im zweiten Blatt stimmt die Summe in der Debug.Print Ausgabe, aber nicht im Tabellenblatt.
Der Unterschied in den beiden Blättern ist die Anz.
Was stimmt nicht?
Gruß
Siegfried