Goedemiddag allemaal,

Ik heb jullie hulp nog even nodig.

Ik zit met het volgende probleem:

Wanneer ik in cel C2 een getal type dat groter is dan 10, dan zou er een pop up venster moeten komen met de tekst "Te groot"
Wanneer ik in cel C2 een getal type dat groter is dan 20, dan zou er een pop up venster moeten komen met de tekst "Veel te groot"

Ik heb zelf al één en het ander getest door de waarde 10 in een andere cel (G2) te zetten en deze dan laten vergelijken met cel C2. Dat lukt en krijg ik een pop up met "Te groot" op. Maar hoe voeg ik hier nog de tweede pop up aan toe wanneer het groter is dan 20 (cel C2 vergelijken met cel G4) en dan de pop up "Veel te groot".?
Zo kan ik dan later de cellen G2 en G4 verbergen. Tenzij er een formule bestaat waar ik C2 niet moet vergelijken met G2 en G4.

Mijn macro ziet er nu als volgt uit en in bijlage het voorbeeld, waar ik dan later op verder kan bouwen.


Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
Dim Three As Long
One = Range("G2").Value
Two = Range("C2").Value
If Not (Application.Intersect(Range("G2:C2"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "Te groot!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

Alvast bedankt voor jullie hulp.

Het is niet duidelijk wat je wil , daarom een gok

Of zo

Private Sub Worksheet_Change(ByVal Target As Range)
 With Application
   If Target.Address(0, 0) = "C2" Then
     If Target.Value > 10 Then
        .EnableEvents = False
         MsgBox "Waarde " & Target & " is " & IIf(Target > 20, "veel ", "") & "te groot"
        .Undo
        .EnableEvents = True
     End If
   End If
 End With
End Sub


Je kunt het ook met gegevensvalidatie oplossen. Wel zal de tekst dan eenduidig zijn.

Bvb: Waarde is (veel) te groot.
Is niet exact hoe je het wil, maar dan heb je geen VBA nodig.

Redhead heeft je die optie ook al gegeven.
Hier nog eentje van mij, zelfde idee in 1 regel

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C2" Then If Target.Value > 10 Then MsgBox "Waarde is " & IIf(Target >= 20, "veel ", "") & "te groot"
End Sub

Terug een poging