Dynamische Array Formel via Makro in mehrere Zelle

Hallo Zusammen,
brauche mal wieder etwas Hilfe :)
Hab schon mir die Finger wund gegooglet aba nix richtiges gefunden.
Wie kann ich diesen Code dynamisch abändern?
in F2 steht
=INDEX(ZOwner;MAX(WENN(ISTFEHLER(FINDEN(ZTestzone;E2;1));"";ZEILE(ZOwner)-1)))
in F3 steht
=INDEX(ZOwner;MAX(WENN(ISTFEHLER(FINDEN(ZTestzone;E3;1));"";ZEILE(ZOwner)-1)))
in F4 steht
=INDEX(ZOwner;MAX(WENN(ISTFEHLER(FINDEN(ZTestzone;E4;1));"";ZEILE(ZOwner)-1)))
Nun wollte ich das ganze via Makro in einen Bereich einfügen. Nur leider steht in allen 3 Zellen von F2-F4 immer nur =INDEX(ZOwner;MAX(WENN(ISTFEHLER(FINDEN(ZTestzone;E2;1));"";ZEILE(ZOwner)-1))) Er ändert quasi nie die Zelle.
Tabelle3.Range("O2:O" & intZeile).FormulaArray = _
"=INDEX(ZOwner,MAX(IF(ISERROR(FIND(ZTestzone,RC[-10],1)),"""",ROW(ZOwner)-1)))"
Hoffe ihr könnt mir helfen.
Danke für die Hilfe
Gruß
XD

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo XD,
wie von Luc beschrieben musst die Formeln anders einfügen.
A) in die 1. Zelle die Arrayformel eintragen, dann diese Zelle kopieren und via Inhalte einfügen die Formeln in den anderen Zellen einfügen
B) in jede Zelle des Bereichs die Arrayformel einfügen
Nachfolgend Makros für die beiden Varianten. Speziell für Variante B müssen die Makrobremsen gelöst werden, da sonst bei längeren Listen die Ausführung des Makros zum Geduldsspiel wird.
mfg
Franz

Sub aaFormelCopy()
Dim intZeile As Integer, StatusCalc As Long
'Makrobremsen lösen
With Application
.ScreenUpdating = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
With Tabelle3
intZeile = 4 'Testwert
.Range("O2").FormulaArray = _
"=INDEX(ZOwner,MAX(IF(ISERROR(FIND(ZTestzone,RC[-10],1)),"""",ROW(ZOwner)-1)))"
.Range("O2").Copy
.Range("O3:O" & intZeile).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
.Calculate
End With
'Makrobremsen zurücksetzen
With Application
.ScreenUpdating = True
.Calculation = StatusCalc
End With
End Sub
Sub abaaFormelEinzeln()
Dim intZeile As Integer, rngZelle As Range, StatusCalc As Long
'Makrobremsen lösen
With Application
.ScreenUpdating = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
With Tabelle3
intZeile = 4 'Testwert
For Each rngZelle In .Range("O2:O" & intZeile)
rngZelle.FormulaArray = _
"=INDEX(ZOwner,MAX(IF(ISERROR(FIND(ZTestzone,RC[-10],1)),"""",ROW(ZOwner)-1)))"
Next
.Calculate
End With
'Makrobremsen zurücksetzen
With Application
.ScreenUpdating = True
.Calculation = StatusCalc
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Dynamische Array Formel via Makro in mehrere Zelle

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

363 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dynamische Array Formel via Makro in mehrere Zelle

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

363 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread