Sub mal4()
Dim a As Integer
For a = 1 To 100
If Cells(a, 1).Caption "" And Cells(a, 1).Caption Mod Cells(a, 2).Caption = 0 Then
Cells(a, 3).Caption = CLng(Cells(a, 2)) / 5 * 4
Else
Cells(a, 3).Caption = ""
End If
Next
End Sub
Vielen Dank für eure Hilfe! Gruss Hirschi