Suche Code für etwas ausführen/abbrechen
12.01.2021 15:32:38
Maik
ich habe eine kurze Frage..
Code der Userform ist folgender:
*Excel Arbeitsmappe soll ausgeblendet sein, während die Form offen ist
Private Sub CommandButton1_Click()
Dim Anzahl As Integer
Anzahl = CInt(TextBox2.Value)
Application.ScreenUpdating = False
Sheets("xs1").Visible = True
Sheets("xs1").Select
Worksheets("xs1").Range("C3").Value = "Eis:"
Worksheets("xs1").Range("D3").Value = "Vanille"
Worksheets("xs1").Range("D4").Value = "400 ml"
Worksheets("xs2").Range("D5").Value = TextBox1.Value
Range("C1:D5").PrintOut Copies:=Anzahl
Sheets("xs1").Select
ActiveWindow.SelectedSheets.Visible = False
Nun zu meiner Frage..
Die Zeile "Worksheets("xs1").Range("J4").Value = TextBox1.Value"
überschreibt die Zelle J4 meiner Tabelle mit den Wert aus der TextBox der Userform.
Ich möchte einen Mechanismus einbauen, der das Drucken des Bereiches C1:D5 verhindert, sofern keine 9 stellige Zahl in die TextBox eingegeben wurde. Ebenso sollen Eingaben aus Sonderzeichen oder Buchstaben den Druck abbrechen. Ist ein 9 stelliger Zahlencode in der Textbox, soll diese in die Zelle J4 übertragen und C1:D5gedruckt werden.
PS:
TextBox 1 - ist für die Eingabe der 9 stelligen Nummer
TextBox 2 - ist für die Eingabe der zu druckenden Dokumente (z.B.: 5)
Kann mir da jemand helfen?
Habe an eine Schleife gedacht - komme aber leider nicht drauf