kennt ihr einen einfachen Code, damit bei Eingabe einer Zahl größer als 100 in einer Zelle in einem Excel Blatt eine Messagebox kommt?
Ich habe 5 Zellen, die unterschiedliche Bedingungen haben bzw. Zahlengrenzen.
Danke!
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1") > 100 Then
MsgBox ("Wert überschritten")
Exit Sub
End If
End Sub
MfG Bernd
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1") > 100 Then
If MsgBox("Wert überschritten, trotzdem eintragen?", vbYesNo) = 6 Then
'tue nichts - Wert ist und bleibt eingetragen
Else
'Wert nicht eintragen
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End If
End Sub
LG,Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen