Matrixformel mit Makro/VBA kopieren
09.10.2014 07:31:15
Dennis
ich habe eine Matrixformel erstellt, die mir in der angehängten Datei eine Summe abhängig von einem Datum berechnet. Die Matrixformel funktioniert perfekt.
Mit einem Makro möchte ich jetzt eine neue Gruppe in der Datei anlegen, d.h. die Zeilen 2 bis 11 sollen komplett kopiert werden und unten drunter eingefügt werden. Das funktioniert auch schon mit dem Makro.
Allerdings befindet sich in Spalte HF jeweils die Matrixformel, die aber nicht so eingefügt wird wie ich es gerne hätte.
Nachstehend einmal der Code, der im Makro hinterlegt ist.
Wie kann ich die Matrixformel kopieren und einfügen, dass immer sofort der richtige Bezug drinnen ist. Hier einmal die Matrixformel.
{=SUMME(((TEXT(CB2:CX2;"MMJJ")=TEXT(HE5;"MMJJ"))*ZEILE(INDIREKT("1:" &ANZAHL2(A6:A11)))^0) *INDIREKT("CB6:CX$" &ANZAHL2(A6:A11)+5)) }
Die fettmarkierten Bereiche in der Formel werden nicht so eingefügt wie ich es gerne hätte. Oder kann man die Matrixformel anders schreiben?
Vielen Dank für eure Hilfe.
Gruß
Dennis
Sub Makro3()
' Makro3 Makro
Rows("2:11").Select
Selection.Copy
Rows("12:12").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=6
Range("A13:A21").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D16:Z21").Select
Selection.ClearContents
Range("E13:F13").Select
Selection.ClearContents
Range("A12").Select
End Sub
Anzeige