|
Hallo,
freut mich dass du schon so weit gekommen bist.
zu deinen 2 Problemen, mit Offset kann man Zellbereiche verschieben, passend dazu gibt es auch noch Resize.
Schau mal in der Hilfe nach, hier ein Beispiel aus dieser.
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
Das sollte dir bei deinem 1. Problem schon helfen.
Beim 2. Problem ist eis so, dass du in einem String nicht einfach Variablen reinschreiben kannst, denn woher soll VBA wissen ob es jetzt Text oder eine Variable ist.
Daher mußt du ein solchen String "zusammenbasteln"
also so:
ActiveCell.FormulaR1C1 = "=(R[-" & ueberObereZeile & "]C[-4]-RC[-4])/(" & grAbstand & ")"
|