|
Hallo,
ich würde gerne mit FormulaLocal Formeln per VBA in Zellen schreiben. Allerdings soll dies mit z. B.: Cells(i,2) geschehen, also nicht z. b.: "=A3*B4".
Ich würde gerne die Formeln zeilenweise in die Spalten 3, 4 und 5 schreiben. Ich weiß nicht wie ich Cells(i, ) und die 3 Variablen k1g, e1g und f1g in den FormularLocal Befehl integrieren kann.
Vielen Dank für die Hilfe im Voraus!!
Sub uebertragen()
Dim ez As Integer, i As Integer
Dim k1g As Single, e1g As Single, f1g As Single
'ez ermitteln
i = 6
Do Until (ActiveSheet.Cells(i, 1) = "")
i = i + 1
Loop
ez = i - 1
For i = 6 To ez
If (Worksheets("Daten").Cells(i, 2) <> "") Then
Worksheets("Daten").Cells(i, 2).Copy
ActiveSheet.Paste Destination:=Worksheets("Salat-Mix").Cells(i, 2)
k1g = ActiveSheet.Cells(i, 3) / 100
e1g = ActiveSheet.Cells(i, 4) / 100
f1g = ActiveSheet.Cells(i, 5) / 100
Worksheets("Salat-Mix").Cells(i, 3).FormulaLocal = "=",activesheet.cells(i,2),"*",k1g,"
Worksheets("Salat-Mix").Cells(i, 4).FormulaLocal = "=",activesheet.cells(i,2),"*",e1g,"
Worksheets("Salat-Mix").Cells(i, 5).FormulaLocal = "=",activesheet.cells(i,2),"*",f1g,"
Else
End If
Next i
End Sub
 
|