Codevereinfachung
19.07.2014 17:00:08
WalterK
Hallo,
der folgende Code ginge noch bis W7.
Kann man den Code auch einfacher schreiben?
Sub FormelnKopieren()
Range("E7").FormulaLocal = "='" & Cells(3, 5) & "'!$A5"
Range("F7").FormulaLocal = "='" & Cells(3, 6) & "'!$A5"
Range("G7").FormulaLocal = "='" & Cells(3, 7) & "'!$A5"
Range("H7").FormulaLocal = "='" & Cells(3, 8) & "'!$A5"
End Sub
Besten Dank für die Hilfe und Servus, Walter