|
Kleine Skizze:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | 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
|