Guten Tag,
habe folgendes Problem:
Will eine Matrix Formel in eine Zelle kopieren, wenn die Zelle links davon nicht leer ist. Dies dann für 3000Zeilen dieser Spalte.
Ich bin bisher so weit (Kann kein VBA programmieren, mache alles über Makros, nur Formeln aufzeichnen geht nicht):
Das Beispiel hier funktioniert:
Option Explicit
Public Sub FormelnSchreiben1()
Dim oBlatt As Worksheet
Set oBlatt = ThisWorkbook.Worksheets("Tabelle1")
With oBlatt
.Range("e7").FormulaArray = "=SUM((B2:B5) * (C2:C5))" End With
Set oBlatt = Nothing
End Sub
Nun mit meiner Formel - Fehlermeldung "400"
Option Explicit
Public Sub FormelnSchreiben1()
Dim oBlatt As Worksheet
Set oBlatt = ThisWorkbook.Worksheets("Tabelle1")
With oBlatt
.Range("e7").FormulaArray = "=IF(F2="";"";IF(MAX(ISTNA(MATCH('SAP Januar'!$P$2:$P$50000;K2:K2;))*('SAP Januar'!$G$2:$G$50000='Auswertung Januar'!C2))=0;"";INDEX('SAP Januar'!P:P;MIN(IF(ISTNA(MATCH('SAP Januar'!$P$2:$P$50000;K2:K2;))*('SAP Januar'!$G$2:$G$50000='Auswertung Januar'!C2);ROW($2:$50000))))))" End With
Set oBlatt = Nothing
End Sub
Weiß einer was ich falsch mache? Oder kann vll sogar einer einen kompletten Code für mich schreiben, inclusive der Bedingung mit der leeren Zelle?!
Wäre super nett!
Lieben Gruß
Alex
|