dank eurer hilfe habe nun eine tabelle, die horizontal in teiltabellen untergliedert ist.
( für nähere infos https://www.herber.de/forum/messages/899226.html)
nun soll alles, was zwischen zwei leerzeilen steht addiert werden. das klappt soweit auch recht gut mit folgendem code:
Sub einfügenErgebnis()
LastRow = Cells(65536, 2).End(xlUp).Row + 1
For i = 12 To LastRow
If Cells(i, 2).Value = emtpy Then
Cells(i, 2) = x
x = 0
Else: x = (x + Cells(i, 2).Value)
End If
Next i
End Sub
nur ist es jetzt so, das nicht nur die daten in spalte 2 ( B ) addiert werden sollen. da die breite der tabelle beliebig lang sein kann ergibt das vergeben von ewig vielen variablen natürlich wenig sinn. meine idee war nun, quasi um die vorhandene for schleife eine weitere zu basteln, die nicht die zeilen, sondern die spalten kontrolliert. auch eine gesammtsumme soll entstehen.
ich habe eine kleine beispieldatei geschrieben, die rot markierten felder sind das, was mit vba ausgerechnet werden soll.
https://www.herber.de/bbs/user/45281.xls
ich hoffe, das ihr mir ein weiteres mal helfen könnt
liebe grüße