Ich habe ein Makro aufgezeichnet, welches eine importierte Datentabelle in eine bestimmte Form bringt. So werden dort Spalten gelöscht, andere Spalten werden eingefügt usw.
In einer Spalte sollen nun zwei Zellen der gleichen Zeile von einander abgezogen werden. Diese Formel soll dann bis an das Ende der Datentabelle übertragen werden. Diese Länge der Datentabelle ist allerdings immer unterschiedlich (Es handelt sich dabei um Buchungstabellen einer Buchhaltung)
Bislang mache ich das noch manuell, will es aber automatisieren.
Anbei der Code:
'Spalte für Saldo einfügen
Range("K2").Select
Selection.EntireColumn.Insert
Range("K1").Select
ActiveCell.FormulaR1C1 = "Saldo"
Range("K2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("K2").Select