Kann mir einer sagen, warum bei dieser Multiplikation nichts rauskommt???
Sub Materialkosten()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Sheets("Stammdaten").Activate
i = Worksheets("Analysetool").Cells(21, 4).Value
j = Worksheets("Analysetool").Cells(15, 4).Value
For l = 1 To 27
On Error GoTo errorhandler
If Worksheets("Analysetool").Cells(15, 4) = Worksheets("Stammdaten").Cells(l + 1, 6) Then
Worksheets("Stammdaten").Cells(l + 1, 8) = k
End If
Worksheets("Analysetool").Cells(23, 4) = i * k
Next
errorhandler:
End Sub
Vielen Dank!! |