|
Kleine Skizze:
Dim lngRow As Long
Dim v(1 To 50, 1 To 10) As Variant
v(1, 1) = 0
v(1, 2) = 0
v(1, 3) = 0
v(1, 4) = 0
v(1, 5) = 1
v(1, 6) = 1
v(1, 7) = 1
v(1, 8) = 1
v(1, 9) = 1
v(1, 10) = 1
v(2, 1) = 0
v(2, 2) = 0
v(2, 3) = 0
v(2, 4) = 0
v(2, 5) = 2
v(2, 6) = 2
v(2, 7) = 2
v(2, 8) = 2
v(2, 9) = 2
v(2, 10) = 2
For lngRow = 1 To 2
With Application
Debug.Print "Ergebis Spalten 5 bis 10 aus Zeile " & lngRow
Debug.Print .Sum(.Index(v(), lngRow, Evaluate("rows(5:10)")))
End With
Next lngRow
Hinweis:
Wenn Nullwerte vorhanden, funktioniert es so nicht.
Dann bleibt Dir a) Schleifen über beide Dimensionen b) Worksheet als Hilfstabelle
|