bin bei meinem Problem schon weiter gekommen.
'ActiveCell.EntireColumn.Cells(neuZeile3, 11).Value = "=SUBTOTAL(9,R[1]C:R[20]C)"
schreibt mir eine Teilsumme in eine Zelle, Summe von der aktiven Zeile plus 20 Zeilen.
Nun ist aber die Anzahl der Zeilen immer anders. Der einzige Anhaltspunkt wäre ein Zeilenumbruch. Dh. ich müsste die Anzahl der Zeilen von der aktiven Zeile bis zum nächsten Zeilenumbruch ermitteln.
'ActiveCell.EntireColumn.Cells(neuZeile3, 11).Value = "=SUBTOTAL(9,R[1]C:R[ANZAHLZ DER ZEIELN BIS ZUM NÄChSTEN ZEILENUMBRUCH]C)"
Hat da jemand einen Lösungsansatz?
Vielen Dank und schönes Wochenende.