title image


Smiley MsgBox nur Zahlen??
Ich will in einer MsgBox nur Zahlen einlesen.Wenn ich Alphazeichen eingebe soll eine Userform kurz "Nur Zahlen" anzeigen und erneut die Msgbox zeigen.Sub Drucken_Klt() Dim i%, Rest%, Dbe$, Anzahl As Integer, Ganz As Integer Dim Mldg, Titel, Voreinstellung On Error GoTo Ende: 'Aufforderung festlegen. Mldg = "Bitte Anzahl eingeben" Titel = "Drucken" ' Titel festlegen. Voreinstellung = "0" ' Voreinstellung festlegen.neu: Anzahl = InputBox(Mldg, Titel, Voreinstellung) If N = "Y" Then GoTo neu......Ende: If Err.number 0 Then UserForm4.Show: N = "Y": Resume Next If Err.number = 0 Then Unload Userform1 Userform1.Show End IfEnd Subdas klappt ja auch soDrücke ich aber Abbrechen in der MsgBox passiert das Gleiche.Wie kann ich das lösen (evtl gibt es auch eine viel einfachere Handhabung.)Danke Uwe

 

Gruß UweD

Über Rückmeldungen würde ich mich freuen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: