Macro om melding te geven als een cel niet de waarde bevat

[Tweety1]

Hi,

De volgende macro gebruik ik om de getallen op te tellen. Nu zou ik graag een melding willen hebben als de uitslag niet 60 in kolom I en niet 1680 (kan ook 60 zijn) in kolom K is. Graag zou ik dan 4 soorten meldingen willen laten zien.

bv.
Melding 1 Totaal in kolom I en K zijn lager.
Melding 2 Totaal in kolom I en K zijn hoger.
Melding 3 Totaal in kolom I is hoger en in K lager
Melding 4 Totaal in kolom I is lager en in K hoger

Sub Totaal()
Dim Bereik As Range
Dim waarde As Double
Set Bereik = Range(Range("I1"), Range("I65536").End(xlUp))
waarde = WorksheetFunction.Sum(Bereik)
Range("I65536").End(xlUp).Offset(1, 0).Value = IIf(waarde = 0, "", waarde)
Selection.Font.Bold = True
Range("B1").Select
Set Bereik = Range(Range("K1"), Range("K65536").End(xlUp))
waarde = WorksheetFunction.Sum(Bereik)
Range("K65536").End(xlUp).Offset(1, 0).Value = IIf(waarde = 0, "", waarde)
Selection.Font.Bold = True
Range("B1").Select
End Sub

mvg

Kasper