Msgbox

Skiver du i en af cellerne?

Ja, dem alle 3 har værdier, som jeg kan/skal ændre.

Filen kan hentes her:
https://wetransfer.com/downloads/e4f520e2a74c4c7c991ea2cefb6d762620210520094131/fbfdf0974b0cc6dac1b7bcab8022174820210520094152/f20144

Prøv:

Da du også taster data ind i D8 bør makroen nok se sådan ud:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D8,D14:D15")) Is Nothing Then
On Error Resume Next
If Range("D15") / Range("D14") > Range("D8") Then
MsgBox ("Generator er for lille")
End If
End If
End Sub

Den virker som sådan godt, hvis jeg ikke lige havde glemt...
D8 skal ganges med 24.
Hvordan sætter jeg lige det ind i formlen?
Nedenstående kan den ikke godkende 😒

If Range("D15") / Range("D14") > Range("D8" * 24) Then

Havde ikke set din jens48.
Men du har ret.
Og har det samme med at jeg har glemt D8 skal ganges med 24...

Nej, udenfor parentesen:
If Range("D15") / Range("D14") > Range("D8") * 24 Then