|
Du könntest z.B. die AutoFill-Methode verwenden (wäre so als ob du mit der Maus die Formeln nach unten ziehst).
Dim rngBereich As Excel.Range
Dim lngLetzteZeile As Long
With ActiveSheet
'letzte Zeile mit Daten in Spalte A finden
lngLetzteZeile = .Cells(.Rows.Count, "A").End(xlUp)
'Bereich G1:K<lngLetzteZeile> referenzieren
Set rngBereich = .Range(.Cells(1, "G"), .Cells(lngLetzteZeile, "K"))
End With
'Inhalte der >erste Zeile< ...
With rngBereich.Rows(1)
'...auf die unter ihr liegenden übertragen
Call .AutoFill(Destination:=rngBereich)
End With
Eine andere Möglichkeit bestünde darin die Formeln erst nach dem die Daten importiert wurden zu schreiben, und statt sich auf eine einzelne Zelle zu beziehen, dies gleich für eine ganze Spalte zu erledigen.
'Beispiel: Gesamte Spalte G mit Formel füllen (in S1Z1-Schreibweise, relative Bezugsangaben)
Range("G1:G" & lngLetzteZeile).FormulaR1C1 = "=RC[-2]/RC[-1]" 'in G1 = E1/F1, in G5 = E5/F5 usw.
|