was mache ich falsch?
Es kommt bei nachfolgender Formel ein Fehler 400?
Cells(i, 11).Value = "=Summe(& mon & *29)"
ich möchte eigentlich nur die Variable mon mit 29 multiplizieren, und später dann daraus den Monat machen?
-------------------------------------------
Sub KostenCube(ByVal mon As String)
Dim i As Long
Dim letzte As Long
letzte = Cells(Rows.Count, 7).End(xlUp).Row
For i = 2 To letzte
Cells(i, 1).FormulaLocal = "=SUMME(G" & i & "*0,2)"
Cells(i, 4).Value = "Printgate/Cube Sendungen"
Cells(i, 11).Value = "=Summe(& mon & *29)"
'Cells(i, 11).Value = mon
Cells(i, 11).FormulaLocal = "=SUMME(K2*29)"
Range("A1:A2000").NumberFormat = "0"
Next
Range("K2:K2000").NumberFormat = "mmmm"
End Sub
--------------------------------------------------------
Gruß und Danke
Christian