auch nach dem Probieren einiger Codes aus dem Forum klappt bei mir noch nichts.
Ich möchte bei vielen Tabellen automatisch am Ende für vier Spalten die Summe ermitteln.
'in die Tabelle springen
Sheets(NeuerName).Select
'in die erste freie Zeile springen
Cells(65000, 2).End(xlUp).Offset(1, 0).Select
'die Zeilennummer abfragen
x = ActiveCell.Row
'2 Zeilen tiefer gehen
Y = x + 2
'in Spalte "B" den begriff Summe: eingeben
Cells(Y, 2).Value = "Summe:"
' hier nun für Spalte C: die Summe von C7 bis C & X eintragen
Cells(x, 3).FormulaR1C1 = "=SUM(R[7]C[3]:R[x]C[2])"
' weiter für Spalte D -F
funktioniert leider nicht Einfach wäre die Forrmel
=Summe("C7":"C" & """ & X &""") einzutragen
was mache ich warum falsch.
Karl-Heinz