FormulaArray
20.12.2017 14:16:10
Andre
ich möchte gerne per VBA eine INDEX,Vergleich-Formel in die Zelle schreiben.
Folgender Code:
'Copy input values to sheet.
Dim lRow As Long
Dim ws As Worksheet
Set ws = Worksheets("BoM")
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Cells(lRow, 1).Value = Me.cbo_Description.Value
.Cells(lRow, 2).Value = Me.cbo_Material.Value
.Cells(lRow, 3).Value = Me.cbo_Thickness.Value
.Cells(lRow, 4).Value = Me.txt_Assembly.Value
.Cells(lRow, 5).Value = Me.txt_Name.Value
.Cells(lRow, 6).FormulaArray = "=WENNFEHLER(INDEX(Material!D:D;VERGLEICH(BoM!A" & lRow & _
"&BoM!B" & lRow & "&BoM!C" & lRow & ";Material!A:A&Material!B:B&Material!C:C;0));""Material nicht gefunden"")"
.Cells(lRow, 7).Value = Me.txt_Quantity.Value
.Cells(lRow, 8).Value = Me.txt_Weight.Value
.Cells(lRow, 9).Value = Me.cbo_Complexity
.Cells(lRow, 10).Value = Me.cbo_Scrap_Rate
End With
Doch die FormulaArray mag er irgendwie nicht. Fehlermeldung: "Die FormulaArray-Eigenschaft des Range-Objektes kann nicht festgelegt warden"
Hat zufällig jmd. nen kleinen Tipp für mich?
Besten Dank an Euch.
VG, Andre