FormulaArray = Fehler 1004 / @Luschi pls
26.11.2013 15:19:26
Thorben
hab hier mal ein Problem (@Luschi, basierend auf deinem Code)
Ich bekomme diese Formel nicht als Mtrx in die Zelle.
Stattdessen gibts Fehler 1004: die FormulaArray Eigenschaft usw...
Diverse andere Formeln (anders aufgebaut) funktionieren ohne Probleme als Mtrx.
Könnt ihr mal einen Blick drauf werfen.
Sub SchreibeFormeln()
Dim ws As Worksheet, zz As Long
Dim f As String
'Arbeitstabelle
Set ws = ActiveSheet
'letzte beschriebene Zeile in Spalte 'A' = SUCHBEGRIFF
zz = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' As String = Formeln als String (zusammengefügter Text) zusammensetzen
'Chr(34) & Chr(34) entspricht "" in den Formeln
'bei FormulaArray gibt es keine länderspezifische Local-Variante,
'deshalb die amerikanischen Funktionsnamen
f = "=SUMPRODUCT(SUBTOTAL(103;INDIRECT(""G""&ROW($4:$" & zz & " _
)))*(LEFT($G$4:$G$" & zz & ";{3})={""DAN""}))"
ws.Range("AA2").FormulaArray = f
'Objektvariable zerstören
Set ws = Nothing
MsgBox "Daten bereitgestellt!"
End Sub
MfG
Thorben