ich moechte ueber einen Bereich eine Summe bilden. Das alleine ist nicht schwer aber
die Zeilenanzahl des Bereichs variiert.
Es kann sein, das der Bereich nur aus einer Zeile besteht. Das wirft meinen Algorithmus
leider voellig ueber den Haufen.
Die konkretet Anwendung sieht so aus, dass die Summe ueber eine Person mit dem Merkmal
"Name" gebildet werden soll.
Jede Person hat zwischen einem und 5 Zeilen
Bsp:
For iRow = 6 To iZeilen '6 damit der anfangsbereich ausgelassen wird
name = Cells(iRow, 1).Value
For iRowInner = iRow + 1 To 170 '170 = Anzahl der Eintraege auf dem Sheet
nextName = Cells(iRowInner, 1).Value
If nextName <> name Then ~f~
Sheets("alleLP2").Activate
ersteNamensAddrInt = Mid(ersteNamensAddr, 4, 2) ~f~'$F$6 -> 8, bzw 10...
letzteNamensAddrInt = Mid(letzeNamensAddr, 4, 2)
' summe ueber den bereich bilden
Range(summenFeld & ersteNamensAddrInt).Formula = _
WorksheetFunction.Sum( _
Range(address_10 & ersteNamensAddrInt & ":" & address_28 & letzteNamensAddrInt))
' F 6 : H 9
ersteNamensAddr = Cells(iRowInner, 1).Address
iRow = iRow + 1
Exit For
Else
iRow = iRow + 1
letzeNamensAddr = Cells(iRowInner, 1).Address
End If
Next iRowInner
Next iRow
Hat jemand eine Idee wie ich das loesen kann?
Gruß&Dank,
Ulli