PDA

Vollständige Version anzeigen : Arrayformel


MICHIF
20.07.2001, 13:12
Was mache ich falsch?
In den Zellen M1 bis Mn stehen Formeln.
Das Makro soll nun in jede Mn Zelle gehen und die Formel in dem Bereich Mn:Yn als Array Formel eingeben.
Das Makro macht das aber nur in der letzen Zeile die anderen ignoriert er
Bitte um Hilfe
hier der VBA Code
Sub Arrayformel()
Dim n%, formel1
n = Application.CountA(Range("M" & ":" & "M"))
formel1 = ActiveCell.Formula
Range("M1").Select
For i = 1 To n
Range("M" & n & ":Y" & n).Select
Selection.FormulaArray = formel1
Next i
End Sub

Klaus-Dieter
20.07.2001, 20:38
Hallo MICHIF,

ich denke so geht es:

Sub Arrayformel2()
Dim n%, formel1
n = Application.CountA(Range("M" & ":" & "M"))
For i = 1 To n
Range("M" & i).Select
formel1 = ActiveCell.Formula
Range("M" & i, "Y" & i).Select
Selection.FormulaArray = formel1
Next i
Cells(2, 1) = n
End Sub

MICHIF
23.07.2001, 07:16
Danke Funktioniert super