Irgend etwas ist an der Formeleingabe falsch. Was wohl?
Danke für jeden Hinweis.
Gruss, Peter
For zNr = ActiveCell.Row - 1 To 6 Step -1
If IsNumeric(Cells(zNr, "D")) Then Cells(zNr, "H").Formula = "=" & Cells(zNr, "D") & "*" & Cells(zNr, "F")
Next zNr