Hallo Michi,
meinst du so?
Wobei ich leider nicht weiß, welche Zelle hier die Aktive Zelle ist.
ActiveCell.FormulaR1C1 = "=ROW(R[-1]C)"
Ich bin mal davon ausgegangen, dass es die Zelle A2 ist.
Public Sub Übertragen()
Dim loLetzte As Long
With Worksheets("Blatt_in_das_du_übertragen_willst") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(loLetzte, 1).FormulaR1C1 = "=ROW(R[-1]C)"
.Cells(loLetzte, 2).FormulaR1C1 = "=Rechnungsvorlage!R[15]C[6]"
.Cells(loLetzte, 3).FormulaR1C1 = "=Rechnungsvorlage!R[12]C[5]"
.Cells(loLetzte, 4).FormulaR1C1 = "=TEXT(RC[-1],""MMMM"")"
.Cells(loLetzte, 5).FormulaR1C1 = "=Rechnungsvorlage!R[13]C[3]"
.Cells(loLetzte, 7).FormulaR1C1 = "=Tabelle1[[#Totals],[Gesamtbetrag]]"
End Sub
Gruß Werner
|