title image


Smiley Re: MsgBox nur Zahlen??
Hallo Uwe,Ein besserer Weg waehre die Verwendung von UserForms und z.B. Nachbildung der Inputbox.Vorteil ist, dass falsche Werte schon bei der Eingabe bemaekelt werden.Gruss NorbertRem UserForm1(Drucken) mit TextBox1, CommandButton1 (OK), CommandButton2 (Abbruch), Rem Label1 (Bitte Anzahl eingeben)Rem Klammereintraege in "Caption" der Steuerelemente uebernehmen.Private Sub CommandButton1_Click() If Val(TextBox1.Value) > 0 Then MsgBox "Drucke " & TextBox1 & " Seite(n)...", vbOKOnly + vbInformation, "Eingabe war OK" '''Dein Makro zum Drucken Else MsgBox "Keine Anzahl zum Drucken angegeben.", vbOKOnly + vbQuestion, "Eingabe ist LEER" UserForm1.TextBox1.SetFocus Exit Sub End If 'Am Ende Unload UserForm1End SubPrivate Sub CommandButton2_Click() Unload UserForm1End SubPrivate Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 47 To 58 '(Ascii code Zahlen 0 bis 9) 'Eingabe ist ok Case Else KeyAscii = 0 MsgBox "Nur Zahlen sind erlaubt", vbOKOnly + vbExclamation, "Eingabefehler" End SelectEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: