MsgBox bei Eingabe einer Zahl

10/01/2009 - 07:35 von Thomas Vollkommer | Report spam
Guten Morgen NG!
Kann mir bitte jemand bei folgender Aufgabe helfen?

Im Tabellenblatt "Eingabe" werden in der Zelle "A10" Zahlen eingegeben.
Sollte die eingegebene Zahl kleiner als 10.000 sein, soll eine Msg-Box mit
der Meldung "Bitte Mindestanlage beachten" erscheinen.

Vielen Dank für die Hilfe
Thomas Vollkommer
 

Lesen sie die antworten

#1 Carlos Naplos
10/01/2009 - 07:59 | Warnen spam
Thomas Vollkommer schrieb:
Guten Morgen NG!
Kann mir bitte jemand bei folgender Aufgabe helfen?

Im Tabellenblatt "Eingabe" werden in der Zelle "A10" Zahlen eingegeben.
Sollte die eingegebene Zahl kleiner als 10.000 sein, soll eine Msg-Box mit
der Meldung "Bitte Mindestanlage beachten" erscheinen.

Vielen Dank für die Hilfe
Thomas Vollkommer



Hallo Thomas

Drücke Alt+F11, dann Strg+r, doppelklicke im Projekt-Explorer auf das Tabellenblatt "Eingabe" und gib dort folgendes Makro ein:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Suchtext, SuchZeichen, bWert

If Intersect(Target, Range("A10")) Is Nothing Then Exit Sub

On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False

If Range("A10").Value < 10000 Then
MsgBox "Bitte Mindestanlage beachten"
End If

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Gruß
CN

Ähnliche fragen