Hallo,
Je zou al heel wat vooruitgang boeken door rond je volledige code een extra voorwaarde op te nemen, bv. als volgt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Const Storten = 750
Select Case Target.Row
Case 7 To 37: If Range("R7").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
Case 43 To 70: If Range("R43").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
Case 77 To 109: If Range("R79").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
Case 113 To 144: If Range("R115").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
Case 149 To 181: If Range("R151").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
Case 185 To 216: If Range("R187").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
Case 221 To 253: If Range("R223").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
Case 257 To 289: If Range("R259").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
Case 293 To 324: If Range("R296").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
Case 329 To 361: If Range("R331").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
Case 365 To 396: If Range("R367").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
Case 403 To 433: If Range("R404").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
End Select
End If
End Sub
Volstaat dit?
Groeten,
pitufo