Hilfe bei einer einfachen Messagebox
18.04.2006 20:34:43
Mark
ich möchte in die Textbox5 einen Wert eingeben, der nur größer oder gleich dem Wert der Zelle "D37" sein darf. Ansonsten soll eine Messagebox erscheinen in der steht:"Sie müssen mindestens (WERT DER ZELLE "D37") mm eingeben!".
Es soll nur ein "OK" Button vorhanden sein. Klickt man darauf, erhält die Textbox5 den Wert der Zelle "D37".
Danke für jede Antwort!
Gruß
-Mark-
Hier mein Code bislang.
Private Sub TextBox5_Change()
Dim sTxt As String
sTxt = TextBox5.Text
If sTxt = "" Then Exit Sub
If Right(sTxt, 1) Like "[0;1;2;3;4;5;6;7;8;9;,]" = False Then
TextBox5.Text = Left(sTxt, Len(sTxt) - 1)
End If
Range("D39") = TextBox5
End Sub
Anzeige